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Sobre este libro 


Este libro contiene un gran número de 
ejercicios y problemas para resolver 
escribiendo programas que te ayudarán 
a practicar tu BASIC. Hay programas a 
los que les faltan pasos y variables que 
introducir, listados de programas llenos 
de errores para encontrar y corregir e 
ideas para programas que puedes 
escribir. El libro trata todas las 
instrucciones BASIC importantes, 
empezando con sencillas sentencias 
PRINT y terminando con consejos para 
escribir un programa largo de un juego 
de búsqueda del tesoro. 


Los programas llenos de errores y 
defectos están marcados con un 
«Chinche» como el que está al principio 
de este párrafo. Esto te indica que 
debes buscar los errores y corregirlos 
para que el programa funcione 
correctamente. Otros programas tienen 
pasos y variables para rellenar. Los 
pasos que tienes que completar están 
marcados con un asterisco y los espacios 
a rellenar están marcados con 
interrogaciones. 


Las respuestas a todos los problemas de 
programas se dan al final del libro con 
explicaciones detalladas. Usa las 
respuestas cuando quedes atascado 
especialmente en los programas más 
largos. Frecuentemente las respuestas de 
un problema en los primeros pasos 
puede ayudarte a resolver problemas 
posteriores o darte una idea para 
escribir el resto del programa solo. 


Algunas veces los pasos que encuentres 
en las soluciones diferirán de los que tú 
has escrito. Si tu programa funciona 
perfectamente, no te preocupes, a veces 
hay dos formas de escribir el mismo 
programa. Prueba a comparar tus y 
respuestas con las del libro para ver que 
método es el más efectivo. 


escritos en un BASIC standard, lo que 
significa que deberían funcionar en la 
mayoría de las computadoras sin mucha 
alteración. Algunas palabras son 
diferentes en todas las computadoras, así 
que si escribes un programa y obtienes 
un error debes revisar las palabras 
BASIC del programa. Hay una tabla de 
conversiones en la página 47 para 
ayudarte. 

Si no estás seguro de lo que hace una 
instrucción BASIC, hay una guía sobre 
BASIC que contiene todas las palabras 
usadas en este libro y una breve 
explicación de cada una. Se dan consejos 
especiales para escribir programas en 
computadoras Sinclair (Timex) y también 
hay respuestas alternativas para estas 
computadoras. 


emas de variables 


: ia de la computadora con un nombre, 
es un espacio A ESnICIandS introduzcas información en la 
de a ER LET o INPUT. La información que contenga 
iza E tras, números Y símbolos se llama cadena. Una cadena 
CS y su nombre tiene un signo dólar detrás, 


E 


Probl 


Una variable 
donde se puede 
computadora, util 

alabras o una Mi 
ESPE estar entre Sn 


At 10 PRINT «¿CUAL ES TU NOMBRE)» 


20 LETRS=«ROBOTS OXIDADOS» | | 20INPUTNS ; 
Mo 130 PRINT A BO IA 30 PRINT «¿CUANTOS AÑOS TIENES?, 

40 PRINT R$ 40 INPUT A 

ES A y R$ son los 50 PRINT N$; «ES »;¡A 
RUN ¡E nombres de 
iables. 
ROBOTS OXIDADOS add Variable de cadena 

LET le dice la computadora que ponga INPUT indica un espacio en la memoria y 
nombre a un espacio de la memoria y que hace que la computadora espere a que 


teclees la información cuando ejecutas el 


información en él. 
ponga alguna programa. 


Elección de nombres de variables 


Algunos de estos 
nombres de variables 

contienen palabras en 
BASIC y producirán un 


error. ¿cuáles son? 
o 


¿Cuáles de éstas son legales 
en tu computadora? 


LET LETRA$=«Hl!» 
LET DIEZ=10 

LET RUN$=«MAS RATAS» 
LET MO$=«50 MOSCAS» 


LET B$=«6422 RATAS» 
LET B5=6422 

LET K1=99 

LET MO$=«MOSCA» 


El BASIC es un quisquilloso sobrenombre Si usas palabras cortas como nombres de 
que asignas a las variables y sus reglas variables no debes usar aquellas que 
varían en diferentes computadoras. Por contengan palabras de BASIC, pues 
ejemplo, el ZX81 ( Sinclair 1000) sólo acepta confundirán a la computadora. Prueba los 
nombres de una letra para variables de pasos dados arriba para ver cuáles son 
cadena.* legales en tu computadora. 


impresión de palabras y variables 


| 10 LET R9=«OXIDAD! 


ps Si 
E 20 LET-S=66 
F 
un punto y coma y observa qué E 
ocurre. E EN pS ¿ 
Cuando escribas palabras y variables la variable. Tendrás que dejar un espacio 
juntas, las palabras deben ir entre comillas dentro de las comillas en ambos lados de 
y debes poner punto y coma entre ellas ia” las palabras. Prueba a quitar los espacios 
en los pasos de arriba y observa lo que 
Problema con PRINT sucede. 


e 


¿Puedes escribir un programa usando las 
cuando lo ej ENE E 
Variables que se dan arriba de manera que ésta? A 


E ZA 
Si tienes un ZX81 tendrás que alterar lo j - 
a a E s nombres de las variables de cadena de más de una letra 


Fíjate en un programa 


Este programa convierte temperaturas Fahrenheit a grados centígrados. Si no estás 
seguro de cómo funciona el programa o de lo que hacen las variables, prueba a 
añadir sentencias PRINT para que la computadora escriba el contenido de las 
variables en la pantalla. De esta manera podrás mirar «dentro» del programa y 
entender cómo funciona. 


Intenta añadir algunos pasos al 
JOA programa para averiguar los valorez 
20 LET F=32 de D y C. 
30 LET B=5 La temperatura que 
40 LET C=B/9 introduces se almacena 


50 LETD=A-F en la variable A. 


60 LET R=D*C 
70 PRINTR 


Problema: Escribir un programa 


En los recuadros inferiores hay algunas ideas de programas sencillos para escribir. Tendrás 
que usar muchas variables, así es que anótalas con los nombres que escojas. Es útil elegir 
nombres de variables que te recuerden lo que significan o para lo que sirven . Primero 
intenta escribir los programas en papel, a continuación pásalos a la computadora y 
corrígelos si es necesario. 


1. ¿Hablas Ugiano? 


Te ha sido encomendada una misión especia 
con los Ugianos que hablan español pero con: 
las letras UG al principio de cada palabra. : 
Intenta escribir un programa que traduzca 
palabras españolas a Ugiano. 


Pistas: Utiliza LET con una variable de cadena y 
para contener las letras UG e INPUT para pedir la * 
palabra en español. Luego haz que la 

computadora exponga ambas variables donde la 
palabra sea en Ugiano. Utiliza pasos con PRINT para 
que resulte más claro el programa. 


2. Cálculo de la velocidad 

¿Sabrías escribir un programa que calculase la 
velocidad? Necesitarás pasos INPUT para el tiempo y la 
distancia, una operación para calcular la velocidad y 
pasos PRINT para hacer más claro el programa. 


MMRrograma sobre salchichas El Robot 1 come 30 salchichas por hora 
oe mientras el Robot 2 come sólo 20 por hora. Si 
X HE 4) S el Robot 2 quiere comer 35 salchichas y el 
T: al, Robot 1 se niega a comer más despacio, 
¿cuántas salchichas tendrán que comprar y 
cuánto tiempo tardarán en comérselas todas? 
za con tres variables, dos para contener el número de 


Repetición de cosas 


Es muy útil saber hacer que 
la computadora repita algo 
varias veces. Una manera 
de hacer esto es mediante 
un bucle con las palabras 
FOR, TO y NEXT. Ejecuta el 
programa de la derecha 
para ver cómo funciona UN 
bucle. 


J es una variante que actua 
como contador. Le indica a la 
computadora cuántas veces 

debe repetir el paso 20. 


Este paso le pide 
a la computadora 
que vuelva al 
principio del 
bucle. 


10 FOR J=1 TO 10 
20 PRINT «HOLA» 
30 NEXT J 


10 FOR L=1 TO 15 


10 FORK=1T10 10 10 FOR 1=1 TO 10 
20 PRINT K 20 PRINT l;« X 8»; ad e TAB(L); 
30 NEXT K 3 CINTAS »:158 MOL 


Las letras l, J, K y 


L suelen utilizarse , Á 
como nombres de Puedes ver como funciona una variable de bucle 


variables en el introduciendo un paso PRINT que muestre en la pantalla su 
bucle. valor. También puedes usar el valor de la variable dentro 


del bucle. Prueba éstos. 


HOLA HOLA HOLA H 
OLA HOLA HOLA HO 
LA HOLA HOLA HOL 
-AHOLA HOLA HOLA 


¿Qué está mal en 
el programa 
superior? 
Pruébalo y verás. 


¿Se te ocurre un programa simple con un bucle que llene la 
pantalla con HOLAS y otro que muestre una columna de 
HOLAS en el centro de la pantalla? 


Step (saltos) 


10 FOR J=20 TO 1 TO STEP-1 
20 PRINT J 
30 NEXT J 


10 FOR I=1 TO 25 STEP 5 
20 PRINT1 
30 NEXT | 


Puedes cambiar la manera de contar de la variable utilizando la palabra STEP (saltar) y un 
número que indica a la computadora que debe contar dando los saltos que ese número indica. 
Si introduces un número negativo, la computadora contará hacia atrás. Ejecuta estos programas; 
luego vuelve a ejecutarlos pero vanados los números de STEP. 


¿Sabrías escribir programas para que la pantalla saliese así? 


Las computadoras funcionan a 
diferentes velocidades, por lo 
que quizá tengas que hacer el 
bucle mayor o menor 
alternando la cifra 1000. 


Bucles de 
retardamiento 


MENSAJE SECRETO 
MEMORIZA EN 5 SEGUNDOS 
LUEGO DESAPARECERA 


REUNIRSE CON AGENTE X 2.00 AEROPUERTO 


Intenta escribir un programa para que la 
: computadora muestre un mensaje secreto 
Un bucle de retardamiento es un bucle vacío como el que se muestra aquí, para hacerlo 


son ningún tipo de instrucciones. En este desaparecer a los 8 segundos. Para hacer esto 

programa los pasos 40-50 hacen que la necesitas un bucle de retadamiento seguido 

computadora cuente del 1 al 1000, lo que de la correspondiente instrucción de borrado 

significa que no hace nada durante ese de tu computadora. Prueba varias veces para 

tiempo. calcular la cifra exacta que debes colocar en 
el bucle. 


Programa: Dibujo 


Puedes utilizartaractert 
gráficos en lugar de estrellas, 
siempre que tu computadora 
los tenga. 


10 LET A$=«***, 

20 FOR J=1 TO 7 

30 PRINT TAB(J);A$ 

40 NEXT J 

50 FOR K=1 TO 3 

60 PRINT TAB(J+1);A$ 
70 NEXT K 

80 FOR L=7 TO 1 STEP-1 
90 PRINT TAB(L);A$ 
100 NEXT L 


80 FOR L=8 TO 18 
90 PRINT TAB(L);A$; «o» 


100 NEXT L 


El programa de la izquierda realiza un dibujo 
con estrellas en la pantalla. Ejecútalo y 
después prueba a alterarlo para realizar 
diferentes dibujos. Encima tienes una idea. 


¿Sabrias completar los pasos 50 a 70 de este programa para Ahora cambia el programa 
que tu pantalla aparezca como la del dibujo? para que la figura salga al 
revés. 


Intenta hacer los 
dibujos en 
diferentes colores.% 


Puedes unir los programas de alterar los programas para hacer dibujos como éstos. 
los problemas 2 y 3 para 

realizar la figura de un 

diamante. 
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Problemas de bucles conocen como bucles anidados. Cada 


s dentro de bucles. Estos Se o! 
da bucle externo, el bucle interno se repetirá un número 
vez 


determinado de veces. 


10 FOR K=1 TO 3 
20 FOR L=1 10 5 


30 PRINT K,L 
40 NEXT L 
50 NEXT K 


j j j tinuación prueba a 

'ogram: el valor de las variables Ejecuta este programa y a con ' prU : 

linde Sra pacas ver cómo cambiar el tamaño de los bucles. ¿Sabrías incluir 
otro bucle aninado para que el programa fuese 


más lento? 


funcionan los bucles anidados. 


Chinches en los bucles 


10 FOR I=9 TO 0 STEP-1 
20 FOR J=9 TO 0 STEP-1 
30 FOR K=9 TO 0 STEP-1 
40 PRINTI; J; K 

50 NEXT | 
60 NEXT J 
70 NEXT K 


Debes tener cuidado de incluir ambos componentes del bucle dentro del otro bucle, ya que si 
no obtendrás un chinche (error). El programa de la izquierda es correcto pero no el de la 
derecha; intenta localizar los errores que tiene. 


Mensaje intermitente 
Contador binario 


10. FOR A=0 T0 1 Z PELIGRO 
El paso 50 calcula el 
20 FOR B=0 YO 1 valor decimal de cada ATAQUE ESPACIAL 
30.FOR C=0 TO 1 dicito binario. 
40 FORD=0T0 1 y 
50 PRINT D4Cx248+4+A+B:4 =p: ¿Sabrías escribir un programa que escribiese 
60 PRINT A:B:C:D ; un mensaje como éste que estuviese 
70. NEXT D ARAN intermitente? Necesitarás un bucle para borrar 
80 NEXT C | la pantalla y escribir el mensaje un número 
90 NEXT B : determinado de veces, y dos bucles de 
100 NEXT A 3 La computado a retardamiento, para que el mensaje no 
4 repite primero aparezca y desaparezca demasiado 
el bucle más rápidamente. 
interno: Reloj de la computadora 


tiliza un*reloj 


Este programa utiliza cuatro bucles anidados A | 

para contar en binario. Puede contar muy duración bal bucle 

deprisa, ya que sólo utiliza números binarios en un segundo 

de cuatro cifras. ¿Sabrías añadir más bucles y i 

cambiar los pasos PRINT para crear un Intenta escribir un programa para que tu 
programa que cuente con números binarios computadora funcione como un reloj. 

de ocho cifras? Necesitarás un bucle para los segundos, otro 


para los minutos y un bucle de retardamiento. 


un cohete Ñ 
do» y moviéndose 


1. Tendrás que borrar la pantalla y escribir 
montones de pasos vacíos para lograr que 

l' el cohete aparezca en la parte inferior de la 
pantalla. 


Puedes utilizar 
caracteres de gráficos 
si la computadora te 
lo permite. 


2. Puedes realizar el dibujo de un cohete utilizando 
caracteres normales en sentencias PRINT. 


3.Para hacer que el cohete se mueva, añade más pasos PRINT vacíos y un bucle de 
retardamiento para que no se mueva demasiado rápido. 


Programa del saltador 


Intenta escribir un programa de animación <0> <0> <0> 1 | 
sencillo que represente una figura como la de 0 0 0 0 0 be 
la derecha que salte de arriba a abajo según | /X]|<05]| [/3] <021 3 
avanza por la pantalla. SS OS 


a z Necesitarás este paso 
Dibujar la figura 


PRINT S 05% vacío para que parezca q 


la fi Ita. 
Puedes dibujar una figura PRINT «O» Pe 


sencilla en dos posiciones PRINT«/ NM»: 

como las que se muestran a ñ PRINT 

la derecha, utilizando PRINT ; - PRINT «0» 
con letras y símbolos. E números de PRINT «<0>» 


pesorgus PRINT. ul SA z 


quieras. 
Escribir el programa 


1. Necesitarás un bucle con el tamaño de la anchura de tu pantalla. Debería contar de dos en| 
dos. Cuando tengas que escribir las instrucciones PRINT TAB entenderás por qué. 


2. Dentro del bucle tendrás que borrar la pantalla y a continuación representar la figura. 
Utiliza TAB para que la posición de la figura cambie cada vez que se represente. 


3. Añade un bucle de retardamiento para que la figura permanezca un breve período en la 
pantalla. ; 


4. Repite esta rutina con una instrucción TAB diferente para la segunda figura. 
<0> 0 <0> 0 <0> 0 <0> 0 <0> 0 <0> 0 <0> 


ESOO EGO E FORERO TO SOS AO ESO SO AO > O 
O ES ASS AOS + 7 TE RAS ES IAS A INES 
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Ejercicios con IF/THEN 


labras IF (SD y THEN (ENTONCES) se utiliza para 
tó información y que la computadora haga cosas 
diferentes según los resultados. 


Ejecuta este programa para estar seguro de 
que entiendes los signos que utiliza la 
computadora para comparar datos. 


Examinador de las tablas de multiplicar 


Este programa sirve para que se revisen las 
tablas de multiplicar. ¿Sabrías añadir más 
instrucciones IF/THEN que te indiquen que la 
respuesta está mal y cuál es la solución 
correcta? 


Bifurcación 


Después de la palabra THEN puedes colocar gran variedad 
de instrucciones diferentes. Por ejemplo, puedes decirle a la 
computadora que dé por terminado el programa o bien que 


salte a otro paso utilizando GOTO. 


10 -LET-C=0 
20 PRINT «¿ESTAS YA CANSADO?» 
30 INPUT 
LO € 


En este programa, la computadora hace 
diferentes cosas dependiendo de la 
respuesta que introducirás en el paso 30. 


Ejecuta el programa varias veces utilizando 
respuestas diferentes. 


¿Qué sucede si 
contestas 
«plátanos»? 


>=significa mayor o 
igual que 
<=significa menor o 
igual que. 


10 PRINT «¿CUANTOS CHIPS PUEDE COMER?» 


20 INPUT C 
30 IE C>=0 AND C<=10 THEN PRINT «TE MORIRA 
HAMBRE 

40 IF C>10 AND C<=25 THEN PRINT «NO SON 
MUCHOS 

50 IF 0>25 AND C<=1000 THEN PRINT «GOLOSO» 
60 IF. C<0 OR C>1000 THEN PRINT a!!!» 


Casi todas las computadoras te permiten 
comparar varias cosas al mismo tiempo 
utilizando las palabras AND (Y) y OR (O) en 
las sentencias IF/THEN. Ejecuta este 
programa para ver cómo funcionan. 


Contraseña 


10 LET S$=«SALCHICHAS» 
20 PRINT «LA CONTRASEÑA, POR FAVOR»; 


30 INPUT P$ 
40 1F P$=S$ THEN PRINT «OK, CONTINUA» 


¿Sabrías completar este programa para que la 
computadora escriba un mensaje si le das 
una contraseña equivocada? Añádele también 
unos pasos para que la computadora 
pregunte por un número secreto. 


a 
computadora 


Esta es la muestra de un 
programa que puede sumar, 
restar, dividir o multiplicar 
dos números que tú 
introduzcas. Intenta escribir 
el programa y una vez 
logrado haz cambios para 
que realice operaciones 
diferentes. 


¿Put 


Tendrás que 
incluir una 


Adivinanzas 


1. Haz que la computadora te 
diga si el número que has 
introducido es demasiado 
grande o demasiado pequeño. 
Así te será más fácil 
adivinarlo. 


2. Añade una variable para 
llevar la cuenta de los intentos 
que llevas, fija un número 
límite mediante un paso 
IF/THEN. 


Esto representa una pantalla 
con un juego para adivinar 
Este programa es un juego para adivinar un número. Una una palabra. ¿Sabrías escribir 
persona escoge un número, la otra tiene que intentar el programa? Es muy 
adivinarlo. Intenta mejorar el programa con las sugerencias que semejante al juego de los 
o eraba. números sólo que utiliza 
variables de cadena. 


Carrera de caballos 


Este es un listado para un juego de carrera de caballos... pero está incompleto. En los 
pasos señalados con un asterisco intenta rellenar los números de paso detrás de las 
instrucciones GOTO. Debajo encontrarás cómo jugar y varias formas para mejorarlo. . 


En muchas computadoras puedes 
incluir mensajes en los pasos 
INPUT. Como en los pasos 20 y 


10 LET N=0 30. 

20 INPUT «GANADOR:»:; H1 E 
30 INPUT «SEGUNDO:»; H2 ARA a 
40 CLS segunda posición. 

50 LET N=N+1 cuenta el número de intentos 
60 INPUT «ADIVINA EL GANADOR:»: G1 que realiza el segundo jugador. 


70 INPUT «ADIVINA EL SEGUNDO:»; G2 
* 80 IF G1=H1 AND G2=H2 THEN GOTO? 


Acuérdate de 


incluir ! 
* 90 IF G1=H2 OR G2=H1 THEN GOTO? Miistasida 
*100 IF (G1=H1 AND G2<>H2) OR paso. 


(62=H2 AND G1<>H1) THEN GOTO? 


110 PRINT »MAL» Muchas computadoras aceptarán 
* 120 IF N=4 THEN GOTO? dos instrucciones en un paso. Si 
tu computadora no los acepta, 


coloca la segunda instrucción en 
130 PRINT «VUELVE A INTENTARLO»: GOTO so ————— 


úun nuevo paso y omite los dos 


140 PRINT «UNO CORRECTO»: GOTO 120 puntos; 
150 PRINT «CABALLO CORRECTO, POSICION ERRONEA»: GOTO 120 
120 PRINT «CORRECTO» 

170 PRINT «GANADOR:»; H1; «SEGUNDO:»; H2 


Ideas para mejorar el juego 


Cómo jugar 


Hay seis caballos 
numerados del 1 al 6. El 
primer jugador escoge qué 
caballos llegan en primer y 
segundo lugar. El segundo 
Jugador tiene cuatro intentos 
para adivinarlos. 


2. Ofrece a los 
jugadores la 
posibilidad de 
volver a 
ejecutarlo. 


1. Intenta un 
sistema de 
puntuación e 
introdúcelo en el 
programa. 


— 


A O A O O 
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Números aleatorios 


, la manera de utilizarlo varía de 
un número aleatorio, aunque á : 
cl E continuación te ofrecemos las diferentes instrucciones, 
una ES comprobar en el manual de tu computadora cuál es la que te sirve, | 
E Ene mirarlo en la tabla de conversión que hay al final del libro, Después 
ace los ejercicios y problemas que Se exponen en estas dos páginas. 


Comprueba si la 


PRINT RND(99) computadora necesita 
PRINT RND(10) 
úmero entero 

En algunas En muchas computadoras para obtener un núm 
computadoras utilizas aleatorio necesitas usar la palabra INT con RND seguido de (1) o 
RND con un número (0). A continuación multiplicar por el número de posibilidades 
entre paréntesis para que quieres y sumar el primer número. Por ejemplo, todas las 
producir un número instrucciones que se muestran arriba indican a la computadora 
entre el uno y el que escoja un número entre el 1 y el 99. 


número que pusiste 
entre paréntesis. 


PRINT RND(6)+5 
PRINT INT(RND(1)x6+5) 
PRINT INT(RND(0)*6+5) 
PRINT INT(RND+6+5) 


Estas instrucciones producen un número ¿Sabrías hacer que tu computadora 
aleatorio entre el 5 y el 10. Busca el adecuado produjese números aleatorios entre el 
para tu computadora. 10 y el 20? 


En este libro 
escribimos RND de 
esta manera. 
Recuerda que debes 
combiarlo por el qua 
valga a tu 
computadora. 


Problema: alterar un programa 


Retrocede para ver el programa para 

acertar números de la página 13 e 

intenta modificarlo para que la | 
computadora seleccione un número | 
aleatorio entre el 1 y el 20. 


Secuencia de números 


50 NEXT] 


ACERTAR EL NUMERG 10 LET X=? PRINT X+1xl 
SIGUIENTE DE ESTA = 20 LETY=? PRINT lx1-Y 
SECUENCIA E 30 FOR l=1 10.3 PRINT X+Y—1%] 
4 13 22 | AO PRINT XelxY PRINT Y+X*l 
? 31 
] 


- CORRECTO 


Tendrás que rellenar las instrucciones de números aleatorios 
de los pasos 10 y 20 y añadir algunos pasos PRINT e IF/THEN. 
A la derecha hay algunas sugerencias para cambiar el paso 40 
y obtener diferentes secuencias de números. ¿Se te ocurre 
alguna manera de ampliar el programa para que la 


computadora tome una secuencia aleatoriamente cada vez que 
ejecutes el programa? 


Intenta escribir un programa 
para el juego de secuencia de 
números que se representa 
aquí. Encima (en el centro) 
encontrarás una parte del 
programa. 


| Fuga de Zorgos 


| Intenta escribir el programa para este juego. 
Has aterrizado en un planeta lejano llamado 

| M7orgos y necesitas 50 chips Z como 

“ combustible para que tu vehículo planetario 

tenga suficiente memoria para volver a la 

] Tierra. Tienes 10 chips Z y la única manera 

de obtener más es jugando a un arriesgado 

juego de suerte con una computadora 

extraterrestre. Las representaciones inferiores 

muestran cómo se desarrolla el juego. 


Po > O 


ze A d 
DADOS TU APUESTA 


DOBLES: — DUPLICAS 
10U11: TRIPLICAS 
607: CONSERVAS LA 
APUESTA 
OTROS: PIERDES 


5 Papel, piedra o tijeras: localiza los errores 

] Este programa es para Jugar a Piedra, Papel o Tijeras con la computadora, con el único 
inconveniente de que está lleno de errores. Basándote en las anotaciones de la parte derecha 

| que te indican cómo debería ser el programa, intenta localizar los errores y corrígelos para 

l que el programa funcione bien. 


10 CLS C lleva la cuenta de la puntuación de la 
20. LET C=0 computadora. O 
30 LETA=0 A lleva la cuenta de tu puntuación. 
40 LET F=0 F indica a la computadora quién ha ganado | 
50 LET R=INT(RND(1)+4+1) en los pasos 130-160. | 
60 1FR=1 THEN LET C$=«PAPEL» Es z 
70 1F R=2 THEN LET C$=«PIEDRA» a EE z 

IF R=3 C$=d« TIJERAS» tijeras se almacena en Cf$ y 

PRINT «ESTOY USTA» depende del valor de R. 

TNT «QUIERES PIEDRA; PAPEL O TIJERAS» 
TAS 


) Los pasos IF...THEN calculan 
«PAPEL» AND A$=«TIJERAS» THEN LET F=1 quién ha ganado. Si ganas tú, 


«PIEDRA» AND A$= «PAPEL» THEN LET F=1 la computadora hace F igual SN 
«TIJERAS» AND C$=«PIEDRA» THEN LET F=1 1 y si es tablas entonces F 

$ =2 igual a 2. Frente a cualquier 
ar e E dd otra posibilidad F sigue 
ci , siendo 0, lo que significa que 
¿Tu YO ELIJO»; C$ la computadora gana. 
¿T «POR TANTO» 


200 4£ F=0 THEN PRINT «YO GANO» 
210 1% F=F THEN PRINT «TU GANAS» 


y: HE 


DAERL La computadora te dice quién gana y 

E ES Ue poi se de 1% Calcula la puntuación fijándose en el 
a e o Er a al d F 

240 (E F=1 THEN LET C=C+1 A 


250. PRINT «LA PUNTUACION ES:» 

260 PRINT «YO:»; € 

270 PRINT «TU»; A 

280 IF.C>10 AND A>10 THEN GOTO 40 
290 PRINT «ESTE ES EL FIN» 
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Jugar con caracteres 


La computadora hace multitud de cosas con los E EE CE ea OS co 
391 cómo funcionan algunas de las 
ramas de esta página muestran cóm 
SL BASIC usa para manejar cadenas. Si tienes una computadora CoN (Timex) 
tendrás que usar instrucciones diferentes como las que se indican abajo. 


LET R$=«ROBOT» 10 LET K$=«KANGURO» 
PRINT LEFTS(RS,3) 20 PRINT «POSICION DE» 
PRINT RIGHTS(R$,3) 30 PRINT «PRIMERA LETRA»; 


=«ARDILLA 40 INPUT S 
PNTIEASICS a 50 PRINT «CUANTAS LETRAS»; 
PRINT RIGHT$(C$,7) 60 INPUT N 
70 PRINT MID$(K$,S,N) 


LEFT$ y RIGHT$ sirven para que la MID$ (medio) sirve para que la computadora 
computadora tome un número de caracteres de tome letras centrales de una cadena. El primer 
la cadena comenzando por la izquierda o por la número del paréntesis le indica a la 

derecha. El número de caracteres lo indica computadora dónde debe comenzar a contar, 
poniendo el número entre paréntesis. y el segundo cuántas letras debe poner. 


as computadoras cuentan 
los espacios de la misma 

Manera que si fueran letras 
y símbolos. 


10 PRINT «PALABRA, POR FAVOR» 
20 INPUT W5 

30 LET L=LEN(WS) 

40 PRINT «HAY»; 

50 PRINT L; «LETRAS»; 

60 PRINT «EN LA PALABRA»: WS 


La instrucción LEN cuenta el número de 
Caracteres en una cadena . Ejecuta el 
programa para ver cómo funciona. 


Problema con cadenas 


¿Sabrías completar las interrogaciones del paso 40 para hacer Intenta hacer que la 

que la pantalla aparezca asíú? Pista: Puedes usar MID$ para computadora escriba una 

recoger de uno en uno los caracteres de una cadena. palabra al revés utilizando 
MID$ y un bucle con step-1. 


Utilizando LEFT$ 
y RIGHTS, intenta 
completar el paso 
que falta en este 
programa para 
que en la pantalla 
aparezca algo 
como esto. 


palabra más larga 


La 
En el paso 50. (5 AE =4 » 
tienes que indicarle ¡NA ABR AS, POR FAVOR» CSUAohaS: POR FAVOR 
ala computadora 30 FOR J=1T0 ? GATO , 
cue almacena L ? LAGARTIJA 
ada en lo ? HIPOPOTAMO 
introducida en la 
ME rablo AS. Pons do 
tenta us Ad ? 
ET HEN y LEN 0 PRINT Se MAS LARGA:» PALABRA MAS LARGA: 


HIPOPOTAMO 


Este programa localiza la palabra más lar 


s ga de una lista de cin 
falta e intenta ejecutarlo. co. Completa el paso que 


ir un programa para localizar la YPuedes llenar la variable con 
corta? Es como el anterior pero cualquier carácter, como éstos. 
variable que sea más larga que 
abras que vayas a introducir para 
omputadora pueda compararlas con 
s que cambiar la instrucción 


Editor de palabras 


¡El listado inferior es sobre un programa para 
editar palabras que te permite introducir 
frases y luego hacer con ellas todos los 
cambios que quieras. Antes de ejecutar el 
programa debes rellenar huecos en los pasos 
que están marcados con un asterisco. 
'Apóyate en las anotaciones de la derecha del 
programa. 


Para entender cómo funciona este 


10 CLS programa, escribe una frase en papel y 


20 FRINT «FRASE, POR FAVOR» realiza tú mismo las instrucciones del 
WPUT SS programa. 


ET S$=2 ctas 
50 PRINT «PALABRA QUE QUIERES CAMBIAR»; Haz que la computadora añada un 


qe espacio al principio y otro al final de 
60 INPUT WS E ad 


S$ y W$. ¿Entiendes el motivo? 
* 70 LETWS=? 


80 PRINT «PALABRA NUEVA»; ES E coco la 


90 INPUT N$ frase (S$) y LW lo mismo que la 
*100 LET LS=2 palabra (WS). 
*110 LETLW=? 


120 LET A$=« » Completa este paso para hacer que 
130 LET K=1 la computadora busque la palabra a 


sustituir (W$) en la frase. Pista: 
140 1F MIDS(S$,?,?2)=WS$ THEN utiliza K para contar los caracteres. 
LETA$=S$ 


* 150. 1E A$=S$ THEN LET A a hace E la computadora 
EE 2%) e el número de caracteres de 
o A 


quieres cambiar, luego introduce la 
170 LETK=K+1 nueva palabra y añade el resto de la 
* 180 IE K<=LS=LW+1 THEN GOTO? frase. ¿Sabrías completar las 

190 PRINT S$ variables que faltan y las cifras? 


200 GOTO 50 
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cteres , 
5coMicara s están representados por números y puedes hacer 


4 eracione ES ont ] 
Más ES la computadora, los A EttOS números de código. La palabra CHR$ convierte un 
Dentro de los caracteres utilizan las computadoras Sinclair (Timex) hace lo contrario 

y código. Muchas computadoras utilizan un código 


con C (o CODE en 
cosas un carácter. AS = número de s la ZX81 (Ti ¡ 
denominado código ASCII”, aunque la imex 1000) tiene su 


una tabla de códigos para tu computadora en tu manual. 


Utiliza CHR$ 


Si tienes una ZX81 


(Timex 1000), 
utiliza estos 
números. 


ncias PRINT CHR$ utilizando éstos y otros números. Algunos números son 
ACE (Espacio) o RETURN (entrar), por lo no aparecerá nada en la pantalla. 
áles son mirándolos en tu manual. 


Prueba varias sente 
para teclas como SP. 
Puedes averiguar Cu: 


Problemas con letras 


Intenta adivinar los números Intenta escribir un bucle para  ¿Sabrías escribir un 


correctos del bucle para que que tu computadora escriba programa que escribiese una 
éste escriba todo el alfabeto. el abecedario en minúsculas, serie de letras aleatorias en 
siempre que las tenga. la pantalla? 


Utiliza ASC o CODE 


¿Qué sucede si 
introduces muchos 
caracteres dentro 
de los paréntesis 
después de ASC 
o CODE? 


ELSA pe 7 
ne ES > SE 
de 4 SS ox os 


Prueba ASC (o CODE en una computadora Sinclair (Timex) como éstos y otros caracteres para 
ver qué números produce la computadora. 


Compara letras Transformar en mayúscula 


-¿=1 TO LEN(MS) 
CAS=MIDSIM5 J,1) 
4:2>=«an AND X$<=«z» THEN 


CEST CHRS(ASCIX$)=?): 

80 1EX$>= «A» AND X$<=«Z» THEN 
PRINT CARSIASTIXS)—?); 
70 1F X3<«A9 OR X$>«z» THEN PRINT X$; 


Utilizando los símbolos >y 
<intenta escribir un 


eN) 
programa que haga que la 80 NEXT J 
o ES dos Intenta rellenar las cifras que faltan en los pasos 50 y 60 para 
ES UES rdene en orden hacer que la computadora transforme un mensaje de 


minúsculas o viceversa. No podrás ejecutar este programa si 
tu computadora sólo utiliza letras mayúsculas. 


* ASCII significa American St 
, an . 
Intercambio de Información). ¡ard Code for Information Interchange (Código Estándar Americano para el 


Programas para escribir en clave 


Estas son algunas ideas Tabla para poner en clave 
para que un programa 
transforme mensajes 
poniéndolos en clave. La 
tabla de la derecha 
muestra cómo funciona el 
primer programa. 
Completa las cifras y 
símbolos del programa 
para después ejecutarlo, 


¿Sabrías poner 
la última palabra 
en clave? 


Las letras se desplazan 
alternativamente hacia 
adelante y atrás por 

una letra del alfabeto. 


Programa para escribir en clave 


Haz el bucle del mismo tamaño que el 


10 PRINT «¿CUAL ES T ? 
20 INPUT MS il número de caracteres en Mf. 
* 
Mpio UTOZ Haz que la computadora seleccione 
* letras de una en una y almacene su 
40 LET X=? => ACI SIA SE código numérico ASCII en X.* 
% 50 IF X<? OR X>? THEN LET N=X: Incluye dos números para comprobar 
GOTO 100 Hp cada caracter y estar seguro de que 
es una letra (los números y los 
* 60 IF INT(J/2)=J/2 THEN LET N=X? 1 espacios permanecen iguales en esta 
30 1F INT(4/2)<>J/2 THEN LET N=X? 1 clave SSdEY 
% Para avanzar las letras suma la X 


80 IF N<? THEN LET N=N+27 si el contador del bucle (J') es un 
* 90 IF N<? THEN LET N=N-27 número par y resta 1 si es impar. 
* 100 PRINT? E Escribe las letras en 
110 NEXT J clave utilizando Si el número avanzado (N) se sale del alfabeto, 
CHR$. mándalo a la otra punta sumando o restando 27. 


En esta clave, el alfabeto se traslada un lo que el alfabeto se traslada seis letras. 
número (N) de letras. Depende de un número Intenta escribir el programa. Puedes utilizar 
de clave. Aquí el número de clave es 6, por el número de clave que quieras. 


Clave de bucle Clave inversa 


pd=1 SAS 6.758 9 10511 12 
ES E A A GE-N TEX 


En esta clave sumas el valor de la variable Para esta clave divide el mensaje en pares de 
del contador del bucle (J”) al número de letras e invierte la posición de las letras 

código ASCII para cada letra. Intenta escribir dentro de cada par incluyendo espacios. Para 
dos programas, uno para codificar un escribir el programa utiliza un bucle con step 


mensaje y el otro para decodificarlo. 2 y escribe cada par de letras invertido. 


*Si tienes un ZX81 (Timex 1000), utiliza los números de código propios del ZX81. 


¡ n INKEY $ Con estas 


artada) hace instrucciones no 
palabra INKEY$ ns en el teclado 
e la computadora a tecla, Pero 
PUT la computadora 


e con de 
ti sino que el rd 
E o la En Estas son algunas de las palabras utili, 
Pad “izan una palabra E 

ce pu ner a por otras computadoras en lugar de 

a cue nus eses INKEY$. Comprueba tu manual o la tabla 
Cs e cios de Sia página. de conversión de la página 47 para ver la 
realizar 1oS ejercicios de e de ameno dela página 4 pr 


Ahora intenta escribir un programa para que 
tu computadora escriba la palabra HOLA | 
cuando aprietas una tecla y si no aprietas 

escribe ese carácter; si no aprietas ninguna ninguna que vaya dejando espacios libres E 


Intenta ejecutar este programa corte la 
instrucción adecuada para tu computadora. 
Cuando aprietas una tecla, la computadora 


y como se muestra en la representación 


ibirá interrogación. E an 
escribirá una g superior. El programa es similar al de la 


Haz que la computadora espere 


¿Sabrías hacer 
que la 
computadora 
espere 
indefinidamente 
hasta que aprietes 
una tecla? 


En ocasiones puede ser útil hacer que la computadora espere un poco antes de continuar con 
el programa. En algunas versiones del BASIC tienes que introducir un número entre paréntesis 
después de INKEY$ como ves arriba. Este indica en la computadora cuánto debe esperar (en 
fracciones de segundo) antes de continuar. Si tu computadora no acepta esto puedes hacerlo 
colocando INKEY$ dentro de un bucle usando GOTO, como se indica a la derecha. 


Matemáticas rápidas con chinches (errores) 
¿Sabrías. encontrar las chinches de este programa para corregirlas y que el programa 
pueda ejecutarse bien? La computadora debe seleccionar dos números aleatorios entre el 
1 y el 25. Tú debes sumarlos y apretar cualquier tecia en cuanto la solución correcta 
aparezca en la pantalla. 


10 CLS 


ds 
20 PRINT «APRIETA CUALQUIER TECLA CUANDO a O ENE Cp 
30 PRINT aVEAS LA SOLUCION CORRECTA DE Ad 
40 LETNZO 150 PRINT «MALA SUERTE. LA RESPUESTA ES»; X+Y 
50 LE KINTRND( 42541 160 FOR K-1TO 1000: NEXT T 
a a e 180 JF N<>X+Y THEN GOTO 150 
80 PRINT «X:0 + Yoo => 190 PRINT «Sl. LA RESPUESTA ES X+Y» 
90 LETN=N+1 
100 PRINTN | 


110 LET INKEYS=AS 
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Hay 8 chinches en 
este programa. 


Cómo escribir un juego de coches de choque 
Siguiendo las ideas que te damos, intenta escribir el A Fs o 
programa para este juego de coches de choque. La 
pantalla de la derecha muestra cómo debe ser el juego. 
Para representar el coche y la carretera, utiliza PRINT 
TAB con * para el coche y ! para los bordes de la 
carretera. La carretera debe ir en zig-zag a lo largo de 
la pantalla mientras tú conduces el coche con dos teclas 
para impedir que choque con los bordes de la carretera. 


1. Establecer las variables 


Necesitas cuatro variables C, 1 A y D para calcular la posición TAB del coche y de los lados 
de la carretera. Quizá tendrás que cambiar los números que se dan arriba para que encaje en 
tu pantalla. Borra la pantalla y crea estas variables en los primeros cinco pasos. 


2. Representación de la carretera 


Debes incluir LET 
D=I+A en la parte a 
repetir para estar 


seguro de que el 
valor de D cambia al 
tiempo que |. 


MAA EA DERE A 


Ahora haz que la Para hacer que la carretera tenga curvas debes incluir algunas 
computadora represente la para cambiar el valor de 1 cada vez que se repiten las 
carretera y el coche instrucciones PRINT TAB. También debes asegurarte de que la 
utilizando PRINT TAB con Carretera no se sale de la pantalla. Para esto necesitarás otra 
una variable y un símbolo. variable (N). Esta deberá ser 1 si I<=1 y 0 si I>=la anchura 
Utiliza GOTO para repetir la de tu pantalla. Luego indícale a la computadora que sume o 
instrucción y dibujar una reste 1 de 1 dependiendo del valor de N. 


carretera larga y recta. 


3. Conducir el coche 


E A a ESE 


¿Sabrías hacer que en 
la carretera 

aparecieran curvas de 
una manera aleatoria? 


a 
» 


us9 CRASH 5u1 ¿Sabrías 
- VUELVE A EMPEZAR inventar un 
sistema de 
Para conducir el coche Finalmente debes comprobar . > puntuación? 


necesitas un paso INKEY$. si el coche ha chocado con 
También debes escoger dos los bordes de la carretera 
teclas (tales como < y > ) y - comparando C con 1 y con 
sumar o restar 1 de C según D. Si hay un choque debes 
qué tecla se apriete. Si el decírselo al jugador y volver 
programa va demasiado a empezar. 

deprisa para poder controlar 

el coche, añade un bucle de 

retardamiento. 
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p oblemas de DATA grandes cantidades de información a la 

r' ] de READ (leer) y DATA (datos). Un paso DATA 

que se almacenan en una E variables seo 

Sá 7X81 (Timex 1000) no podrás ejecutar los 

indique la instrucción READ 3 e EE ta computadora no utiliza estas INStrUCCIONES, 

lo indiqu o un sistema para que puedas almacenar la Información 

e en la página SS 

Se DATA utilizando una ma 


Sustituye la 
interrogación 


Separa cada dato 
con una coma. 


nombre de tu 
lista. 


Algunas computadoras exigirán 
que estén los datos entre comillas. 


ograma para ver cómo funciona En este programa, la computadora te pide tu 
Ejecuta este pr 


READ y DATA. La palabra READ va seguida nombre para ver si se halla en una lista de 
| 
| 


: nombres almacenada como data. Pon todos los 
variables y cada vez que se repite el : 
no la podas almacena el siguiente datos que quieras en el paso 80, pero recuerda 


que en paso el 50 debes poner el último nombre 
de la lista para decirle a la computadora que 


] programa di ós de leerlo. 
Volver DATA al principio: RESTORE E A 


par de datgs en las variables X y X$. 


*10 FOR J=2? A A que el bucle ] mida igual que el 


* 20 FOR |=2 TO ? alfabeto utilizando el número de 
*30 READ N$ código del carácter correspondiente. 
40 IF LEFTS(N$,1)=CHRS(?) THEN PRINT NS E que allbosima delibude 1 sea 


50 NEXT | el número de datos. 
60 RESTORE 
70 NEXT J 
80 DATA VERA, XAVIER, ZACARIAS, HORACIO, BIGGLER, BILL, BEN 
90 DATA TOPSY, TIM, POPEYE, JIM, HARRY, GEORGE, DELILAH 
100 DATA LOVEDAY, HONORA, SAMPSON, SAUL, TABITHA 


¿Sabrías completar este programa para que ordenase los nombres alfabéticamente? Los nombres 


están almacenados en pasos DATA; RESTORE (volver a empezar) hace que la computadora vuelva 


al principio de la lista de datos cada vez que se repite el bucle J. Intenta completar las variables y 
números que faltan para poder ejecutar el programa. 


Localiza el chinche 


En este programa los pasos data contienen . 
números de teléfono, (A E Si no encuentras el chinche de este programa, 


j : , , prueba a ejecutarlo. La computadora escribirá un 
ches del programa? Si es así, corrígelos. mensaje de error diciendo lo que está mal. ¿Se 
te ocurre una manera fácil de resolver este 
programa? 


El café de Joe 


GUISO DE CARACOLES A LA FRANCESA BIENVENIDOS AL y JOE 
SOPA DE SALSHICHAS AO QUIERES GAS : 
TARTA DE PALOMA 

ALBONDIGAS ARLASTADAS ESTO ES LO QUE PUEDES TOMAR 
HOJA DE LECHUGA 


HOJAS DE LECHUGA 
REFRESCO DE HELADO REFRESCO DE HELADO 


INTECA E PAN A LA BARBACOA 
o o Ao ZIP BATIDO DE MENTA 
PAN A LA BARBACOA 
BA7/DO DE MENTA 


En la parte superior izquierda está el menú 
hacer un programa como el de la pantall. 
determinada cantidad de dinero. Puedes 


del café de Joe. Utilizando los precios y los datos, intenta 
a de la derecha que te diga lo que puedes tomar con una 
añadir más platos al menú. 


Agenda de teléfonos 


Debajo hay instrucciones para 


escribir un programa que sirva ¿QUE TELEFONO QUIERES? ¿QUE TELEFONO QUIERES? 
EEES de Sian A ? BERNIE EL CHINCHE 

4 ; 'T OXIDADO: 60-14-444 
muestran Cómo funciona. Intenta 2uN NOMBRE NO LOCALIZADO 


escribir el programa. 


¿QUIERES ALGUN OTRO 


¿QUIERES ALGUN OTRO 


NUMERO? SI NUMERO: 2? NO 


Almacena los 
números en 
una variable 
de cadena, 
¿sabes por 


Número de 
Robot oxidado, 
por favor. 


Y 


SS. MÍ NS 


1. Haz una lista con los 2. Utiliza PRINT par hacer que 3. Utilizar READ para buscar el 
nombres de tus amigos y sus la computadora te pregunte nombre dentro de un bucle. 
números de teléfono e qué número quieres e INPUT Utiliza variables separadas para 


introdúcelos en una instrucción para respuesta. 
DATA como se muestra en 
este dibujo. 


nombres y números. 


¿Quieres 
algún otro 


60-14-444 número? 


AA 


4. Escribe el nombre y el 


5. Haz que la computadora te 6. Según la respuesta: 
número (que debe ser el pregunte si quieres otros RESTORE vuelve al principio el 
siguiente dato de la sentencia números. Utiliza INPUT para tu dato o bien se da por 
data) o bien indica que el respuesta. 


terminado el programa. 
nombre no está en la lista. 
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Uso de matrices datos es con matrices. Puedes imaginarte una maty; 
Una forma cómoda de á tables donde cada dato se almacena en un ea Uento 
como un conjunto de 5 cnominan elementos. Puedes referirte a un elemento 
numerado. eonbrdS la matriz y su número de compartimento también llamado 
utilizando el nO 


subíndice o celda. 


Matriz numérica 


números 
de compartimento. 


N(1) es 


j ari ] is elementos. Debes indicarle a la 
triz numérica llamada N. Contiene seis | 
Esta lado CUE tamaño va a tener la matriz para que pueda reservar la memoria necesaria, 
Para a esto se utiliza la sentencia DIM seguida del nombre de la matriz y el número de 
elementos que contiene. Esto se denomina dimensionar una matriz. 


Para introducir datos en una matriz puedes Ahora intenta escribir un programa que ponga 

utilizar un bucle con READ/DATA. Intenta en la pantalla todos lo datos almacenados en 

completar el programa de la izquierda para la matriz. Utiliza PRINT y una variable de 

que almacene toda la información del dibujo bucle que equivalga al número de 

superior en una matriz. Si tienes un ZX81 compartimentos de la matriz. En la pantalla de 

(Timex 1000), utiliza el programa de la la derecha, la computadora escribe elementos 

derecha que utiliza una serie de de una matriz de forma aleatoria utilizando un 

introducciones INPUT para llenar la matriz. número aleatorio que busca como número de 
compartimento. 


Matriz de caracteres Computadora Sinclair (Timex) 


ARRAY A$ 


«lena de caracteres se gua p 
iínea y cada elemento de la línea contiene 
¡un carácter, Para dimensionar una matriz 
| tienes que decirle a la computadora cuántas 
cadenas (líneas) hay y cuántos elementos. 

¡ Todas las líneas han de tener la misma 
longitud, por lo que conviene contar los. 
Caracteres de la cadena más larga y utilizar 
este número en la sentencia DIM. La 
computadora hará todas las demás cadenas 
de la misma longitud añadiendo espacios en 
blanco. 


Esta es una matriz de caracteres (N$) 
Contiene cinco nombres, es decir, cinco 
elementos. A menos que tengas una 
computadora Sinclair (Timex), has de usar las 
matrices de caracteres de igual forma que las 
numéricas. Escribe un programa simple para 
almacenar los datos en esta matriz y que 
29 a continuación muestre los datos en la pantalla. 


Calculador de meses 


Dimensiona la matriz. 
«10? ES 


«7 PP READ para los dátos de dos 
* 30 matrices Mf$ y D. 


40 NEXT K 
50 PRINT «NUMERO DE MES»; 
60 INPUT N 


¿Sabrías escribir este progr. 
número de un mes la Computadora escriba 
número de días que tiene? Al lado d 
pistas que te pueden ayudar. 


Programa para decidir qué haces 


Esta es una idea para hacer un programa que 
te puede ser útil cuando no se te ocurra qué 
hacer. Para ejecutar el programa, elige un 
número y, según el que elijas, la computadora 
te dará diferentes sugerencias. 


Veinte preguntas 


Esta pantalla muestra un juego 
de preguntas. Para escribir el 
Programa piensa en 20 
preguntas e introdúcelas en la 
matriz de caracteres. Pon las 
Tespuestas en otra matriz. Los 
números de compartimento 
de las dos matrices deben 
unir preguntas con respuestas. 


Completa los números para que 


M busque los datos correctos en las 
«70 PRINT M$(?); «TIENE»; matrices. 
* 80 PRINT D(?); «DIAS» 


En estas instrucciones d t 
DATA? ata pon 
ln DATA? el nombre de cada mes seguido 
*110 DATA? del número de días que tiene. 


ama para que cuando escribas el 
su nombre y el 
el programa hay algunas 


para que la computadora te 
pregunte el nombre de un 
mes y a continuación te diga 
el número de días que tiene. 
Utiliza en bucle IF/THEN para 
buscar en M$ el nombre del 
mes. Utiliza el número de 
compartimento como variable 
del bucle para tomar el dato 
correcto almacenado en D. 


Para escribir el programa necesitas una matriz 
de caracteres (1$) llena con diez ideas. 

INPUT para introducir un número en la 
variable (N) y haz que la computadora use 

una de las ideas utilizando N como número de 
compartimento de 1$. 


Tabla de números aleatorios 


La computadora da .a 
cada elemento de la 
matriz a un valor 


10 LET N=0 Pa 

20 DIM A(10) inicial O. 
30 FOR K=1 TO 10 

40 LET A(K)=0 

50 NEXT K 


60 LET R=INT(RND(1)*10+% 
70 LET A(R)=A(R)+1 
80 LET N=N+1 

90 IF N<100 THEN GOTO 60 


Este programa usa una matriz para almacenar dos datos de una 
tabla. La computadora elige al 


al 10. Cada elemento de la m 
número de veces que se esc 
programa unos pasos para 
tabla como la que se mues 
estrella cada número elegi 
que se repita 10 veces con 
anidado deberá represent 


eatoriamente 100 números del 1 
atriz (A) lleva la cuenta del 


otro bucle en su interior. El bucle 
ar una línea de la tabla cada vez. 
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10 CLS Y 
20 LETN=0 
30 LET X=INT(RND(1)»10+1) Puedes 
--40 LET Y=INT(RND(1)»10+1) ANUN | 
50 LET N=N+1 ESSUSTO 
como éste 
60 PRINT «INTENTO»; N; « »i que te sirva 
70 INPUT A,B para 
80 IF A=X AND B=Y THEN GOTO 170 localizar el 
90 GOSUB 200 submarino 
100 PRINT : cuando 


Intenta ejecutar este 


b tinas pcia tos 
NE, utin cómo funcionan los 
Escribir SUDI comandos GOSUB/RETURN 
del programa a 

subrutina es una parte dl 
e desempeña una determinada labor que 


ha de ejecutarse varias veces a lo largo del 


“La palabra COSUB (11 de 
BRA) sebuida del número del primer 
paso de la subrutina le dice a la 
computadora que debe saltar a esa 
subrutina. La computadora ejecuta la 
subrutina hasta que encuentra la palabra 
RETURN (volver). Esta instrucción la manda 
el programa principal justo al paso posterior 
al que contenía la instrucción GOSUB. 


PO MELON RRA 
O PLATANO RIA 

O JENJIBRE KARA 

PEPIÍNILLOS. Re 

NILL CHICLE AA REX ARA RAR RAR 
SHICLE 8 is a ¿ z 


PS ES e ab 


La tabla superior izquierda es el resultado de una encuesta para averiguar el sabor más 
popular de entre seis nuevos gustos. Escribe un programa para representar la información 
como en la pantalla de la derecha. Utiliza un bucle para leer los datos con dos matrices y 
dentro de él pon una instrucción que mande a la computadora a una subrutina que represente 
una a una cada fila de la tabla. 


Hunde el submarino 


El programa que viene a continuación es para un juego llamado «Hunde el submarino». La 
computadora decide su posición eligiendo dos números aleatorios que serán las coordenadas 
X e Y. Tienes cuatro intentos para hundir el submarino adivinando las coordenadas X e Y. Si tu 
intento es fallido, la computadora salta a una subrutina que dice en qué dirección debes 
apuntar. Antes de ejecutar el programa debes escribir la subrutina. 


juegues. 
110 IF N<=4 THEN GOTO 50 


120 PRINT «NO TE QUEDAN MAS OPORTUNIDADES; 


130 PRINT «QUIERES VOLVER A JUGAR» Escribir la lana do 
ee ec A 
¡PUGTOS submarino (X, Y) y que aparezcan en la 

170 PRINT «DISTE AL SUBMARINO EN»; N; «INTENTOS» pantalla los mensajes correspondientes. Si B 

180 GOTO 130 es menor que Y apunta al norte; si A es menor 
Ejecución del OUFADIa a Este, y así con las demás 


Programa para una máquina tragaperrras 


¿Sabrías escribir un programa para que tu computadora TIENES 10 FICHAS 
funcione Como una máquina tragaperras? La pantalla de — | APRIETA CUALQUIER TECLA 
> [p 


2 A : PARA JU 

la derecha muestra cómo aparecería el Juego. Debes 

comenzar con 10 fichas y te Cuesta una ficha cada vez ea CON 
que juegas. Aprieta cualquier tecla y la computadora 2 CAMPANAS 

escribe el nombre de tres «frutos» elegidos GANAS 2 FICHAS 


aleatoriamente. Intenta seguir los consejos que te AHORA TIENES 11 FICHAS 
damos para poder escribir el programa. 


APRIETA CUALQUIER TECLA 
PARA JUGAR: B 


L En primer lugar, 2. Borra la pantalla e 3. Utiliza INKEY$ para hacer 
dimensiona la matriz FH introduce una variable T que la computadora espere 
para que contenga 6 de para que lleve la cuenta del a que el jugador apriete 
nombres de «frutas» (timón, número de fichas. Dale un cualquier tecla para 

cereza, a Uvas valor inicial de 10 e indícale empezar. Resta 1 de T 

y ¿E ado estos al jugador cuántas tiene. (cuesta una ficha jugar) y 


READ/DATA (o INPUT). vuelve a borrar la pantalla. 


3 DE CUALQUIER CLASE GANAS 5 FICHAS 


4. Haz que la computadora elija un número 5. A continuación deben aparecer los 
aleatorio entre el uno y el seis y lo almacene nombres de las frutas en la pantalla y que la 
en R. Utiliza R para como el número de computadora calcule si ha ganado algo o no. 
compartimento de F$ para seleccionar una Como se muestra arriba, hay tres formas de 
fruta y almacenarla en una variable A$. ganar. Para cada una debes mandar a la 
Repite este proceso dos veces más para computadora a una subrutina diferente para 
seleccionar dos nuevas frutas y almacénalas que busque el mensaje correcto y ajuste el 
en B$ y C$. valor de T. 


grama no 
te olvides de escribir los pasos DATA. Esto 


programa debería pararse. Si le queda es preferible escribirlos al final del programa. 
alguna, haz que vuelva a jugar. 
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Cómo escribir un programa sobre la caza del 


tesoro 


En las páginas siguientes tienes las instrucciones necesarias para escribir paso a paso 
un juego sobre la caza del tesoro. El programa es algo complicado, por lo que sigue 
atentamente las sugerencias y comprueba cada apartado según los termines, Si te 


quedas atascado en alguna parte del programa puedes 
mirar la solución y continuar 
con el resto del programa. 

Antes de comenzar a escribir el programa 
debes saber cómo jugar, así es que 
lee esta sección antes de comenzar. 


Cómo jugar 

El mapa de la derecha muestra un plano de 
siete habitaciones. Cada una tiene una 
descripción diferente y una caja llena de 
tesoros. La información de este mapa queda 
almacenada en la memoria de la 
computadora pero el mapa no aparece en la 
pantalla. Esto significa que no sabrás la 
posición de cada habitación elegida al azar, 
el objetivo del juego es reunir todo el tesoro 
en una habitación en un número limitado de 
movidas. 


A 
+=] 


La pantalla superior muestra las palabras que puedes usar 
para jugar y lo que significan. Sólo puedes introducir una 
instrucción en cada jugada y no puedes permitirte el cometer 
- errores. 


Ejemplo de programa 


2 OSCURA Y | 3 Gris 


ATZZP Ez3>S> 
EN [a 
dillos 
1ERÍA Y JATERRADORA| 4 SUCIA y 
TENEBROSAL Y MISTERIOS BRUMOSA 


one | 
| pl | 
Basura 


GENCANTADA| 5 
Y HORRIBLE 


SOMBRÍA -LFANTASMAL 


VACIA Y 
LUGUBRE 


LEA 
arras ) 
de mie 


Para que sea más 
complicado, sólo puedes 
llevar las cajas de tesoros de 
una en una. 


el programa 
grama de la derecha es un diagrama : PRINCIPIO 
a del programa con cada ina de flujo. Muestra la 
CREAR LAs 


he , GOsUB 
Crea las matrices y lee los datos (Paso 

'ienes que introducir toda la 
apa de la página anterior e 


información del 
n la memoria de 


9$<uoa 


$ 
Matrices N,E,S,O 


rimero necesitas cuatro matrices llamadas 

-N, E, S y O. Los datos en ellas indican a la 

| computadora qué habitación hay al norte, al 
este, al sur y al oeste de cada habitación. 

Dimensiona estas matrices en el primer 

paso (100)*. Cada una tiene siete elementos. 


2423 mA 


Elvéro significa was 
no hay ninguna 
habitación en esa 
dirección. Por 
ejemplo, no la hay al 
oeste de la 
habitación 1 o al 
norte de la 
hakitación 2. 


1A310P 
PIERDE EL 
¡7 JGADOL 
Haz una tabla como esta para calcular los 
datos. Los números de la primera columna 
||| son los «rúmeros de compartimento» de las 
|| [matrices y representan al número de 
| habitaciones. Para rellenar cada casilla de la 
| tabla, mira en el mapa el número de la 
“| habitación que hay al norte, el este, al sur y 
“al oeste de las habitaciones listados en el 
lado de la tabla. Las dos primeras filas ya 


han sido hechas. Se 


| Lee los datos 
110 FOR K=1T07 


120 READ N(K),E(K),S(K),O(K) 
130 NEXT K 


instrucción 
de borrado 
de pantalla 


Si tienes un ZX81 (Timex 


1000) necesitarás usar 
además-una instrucción 
INPUT para cada matriz. 


2000 DATA 2,7,6,0 


A continuación necesitas un bucle como el superior para leer los datos. Utiliza la tabla para 
| introducir los datos en siete pasos DATA. El primero se muestra arriba. 29 
3 . *Si tienes un ZX81 (Timex 1000), sólo puedes dimensionar una matriz por paso, así es que comienza en el 

paso 10. 
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Lee los datos 
utilizando como 
antes un bucle. 


Matriz D$ 


2100 DATA FRIA Y TENEBROSA, OSCURA Y SOMBRIA 


triz llamad as descripciones de las 
X continuación necesitarás una matriz . 
habitaciones. Dimensiónala al principio del programa y escribe los datos tal y como se 


muestra arriba, usando las descripciones del mapa. 


ALLIATO 
EE 


Matrices T$ y T 

Ahora necesitas dos nuevas matrices. T$ 
para contener los nombres de los tesoros y T 
para saber dónde está cada tesoro. El 
número almacenado en cada compartimento 
de T es de la habitación donde se almacena 
el tesoro de T$ con el mismo número de 
compartimento. Por ejemplo, al principio del 
juego T(2) es 2, siendo ésta la habitación 
donde el tesoro T$(2) está almacenado (el 
chicle). Durante el juego, los números de T 
cambian según sean trasladadas las cajas de 


tesoros. 


Dimensiona estas matrices, escriba 
los pasos DATA como a la derecha 
y lee los datos de ambas matrices 


lizandg un mismo _bucl 


Variables 


2200 DATA ORO,1,CHICLE,2 
2210 DATA BOCADILLOS,3,BASURA, 4 


Número de jugadas 
que lleva el jugador. 


Una variable «flag» 
(bandera o indicador). 
Más tarde verás cómo 
funciona. 


Indica si el jugador 


Variables para 
lleva algo. 


contener datos 
temporales. 


Las cajas superiores dan los nombres de las variables que necesitarás más adelante. 
Comenzando en el paso 300, asigna a cada una de estas variables el valor inicial 0. 
2. Subrutina Ayuda (pasos 1000-1120) 


A continuación necesitarás una subrutina que 
explique las reglas del juego. Pon una instrucción 
GOSUB en el paso 300 y comienza la subrutina en 
el paso 1000. Escribe las instrucciones que se 
muestran en la pantalla (izquierda) y las 
instrucciones que entiende la computadora (pág. 28). 


3. Selección aleatoria de una habitación (paso 350) 


El número de la habitación en la que se encuentra el jugador, se almacena en una variable R. 
Para escoger de qué habitación debe partir, haz que la computadora elija aleatoriamente un 
número entre el 1 y el 7 y lo almacene en R en el paso 350. : 


HAY 7 HABITACIONES CON UN 

TESORO EN CADA UNA. DEBES 

REUNIR TODOS LOS TESOROS EN 
¿UNA SOLA HABITACION. 


4. Identificar la habitación y su contenido (pasos 400-470) 


ESTAS. EN LA HABITACION 7 


NI ESTAS EN LA HABITACION 4 - ESTAS ENLAHABITACION 1 
ES ATERRADORA Y MISTERIOSA ES SUCIA Y BRUMOSA ES FRÍA Y TENEBROSA 
CONTIENE: MONEDAS CONTIENE: NADA - CONTIENE: ORO 


Para empezar, dile al jugador en qué habitación se halla. Luego describe la habitación usando 
R como «número de compartimento» de D$. Las pantallas superiores muestran cómo debería 
aparecer la tuya. 


ñ cación del contenido 
rabitación 


IF T(K)=R THEN PRINT TS(k): 
'=1] 
¡EXT K 
=0 THEN PRINT «NADA» 


| falso F, continúa siendo 0. Recuerda 
verla a 0 en el paso 470, ya que 
Jerás a necesitarla. 


enta escribir la subrutina mover 
ndote en este diagrama de 


1. Para trasladarse el jugador 

ribe N, E, S u O; para saber 

al de ellos ha escrito utiliza 

cuatro pasos IF/THEN. 

2 P encontrar el nuevo número 
: itasión utiliza R como 

ero ¿e compartimento» de 

'matriz correspondiente (N, E, S u 

almacénalo en una variable 

oral X. 


> no hay ninguna habitación en 
dirección, por lo que tendrás 
le escribir un mensaje que lo 


computadora a una instrucción 
¡TURN al final de la subrutina. 
X no es 0 debes poner el 


haciendo que R sea igual a X. 
Pon RETURN al final de la 
subrutina. 


variable F indica a la computadora si 
algún tesoro en la habitación una vez 
' ésta ha sido sacada por el bucle. 
ciona como una bandera. Cuando el 

| paso IF/THEN es verdadero, la bandera 

| sube (es decir, F es 1), mientras que si es 


¿Sabrías dedu 


Matriz vale R? 


A continuación pregunta al jugador qué 
Quiere hacer e introduce un paso INPUT que 
permita que el jugador escriba una 
Instrucción (cómo TOMAR o DEJAR) que se 
almacene en A$. Analiza lo que escribe el 
Jugador con cinco pasos GOSUB que manden 
a la computadora a diferentes subrutinas. Pon 
los números de paso cuando hayas calculado 
dónde deben ir las subrutinas en el 
programa. 


PRINCIPIO 


cir qué 
elemento de esta 
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7. Subrutina tomar (pasos 1300-1380) 


1. El jugador sólo puede llevar las cajas de NO 
tesoros de una en una, así es que primero FOR K =1T07 
comprueba si el jugador lleva algo. Para (5% 

hacerlo, comprueba el valor de C que es 1 BU 
cuando el jugador ha tomado algún tesoro. Si 

C es 1l, escribe un mensaje y manda a la 
computadora a RETURN. 


2. Para comprobar si hay algún tesoro en la 
habitación, escribe un bucle utilizando IF/THEN 
para buscar en la matriz T. Si el número en T HAZ QUE Y 
equivale al número de habitación (R), debes 5! o AE 
almacenar el «número de compartimento» de T pda 
(representado por K) en una variable temporal 
llamada Y. Según la computadora vaya ejecutando 
el bucle localizará varios números iguales a R. En 
este caso Y debe contener el «número de 
compartimento» del número de estos números T 
cuando la computadora haya terminado el bucle. 


3. Si Y es 0 no hay ningún tesoro en la habitación, as1 es que debes mandar a la computadora a 
RETURN. En cualquier otro caso el «número de compartimento» almacenado en Y indica a la com- 
putadora qué tesoro tomar. Cambiar el valor T(Y) a 999, un número que indica qué se está lle- 
vando. Asigna el valor 1 a C, vuelve Y al valor 0 y pon RETURN al final de la subrutina. 


8. Subrutina Dejar 


3. Si T(K) es 999, 
(pasos 1400-1460) 


cambia su valor 
para que sea igual 
al número de 
habitación (R) y 
vuelve a hacer que 
C sea 0 para indicay 
que el jugador no 
lleva nada. 


1. Primero 
comprueba si el 
jugador lleva algo 
revisando el valor 


de C. ES 


2. Averigua qué caja de 
tesoro lleva el jugador 
buscando 999 en la matriz 
Ue 


4. Añade pasos PRINT 
a la rutina donde creas 
que son necesarios y 
pon una instrucción 

RETURN al final. 
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] 9. Subrutina posición (pasos 1500-1590) 


Esta rutina informa al jugador de la posición en ese momento de cada caja de tesoro. Intenta 
escribir el programa basándote en la muestra de lo que debería salir que hay en las dos 
pantallas inferiores. Primero traza un diagrama de flujo. 


LLEVAS: ORO LLEVAS: NADA 
- CONTENIDO DE LAS HABITACIONES: CONTENIDO DE LAS HABITACIONES 
2: CHICLES 7: ORO 
3: BOCADILLOS 7: CHICLE 
4: BASURA 7: BOCADILLOS 
5: JARROS DE MIEL 7: BASURA 
6: JOYAS 7: JARROS DE MIEL 
7: MONEDAS 6: JOYAS 
7: MONEDAS 


para saber si el jugador lleva algo. Si lo lleva manda a la 
pu que qué elemento de la matriz T vale 999, para a continuación 
escribir el nombre de la caja del tesoro que lleva buscando el elemento de la matriz T$ que 
Para escribir los contenidos de las habitaciones 
n de los tesoros en ese momento exceptuando el 


10. Cuenta las jugadas 
(paso 600) 


11. ¿Están todos los tesoros en la misma 
habitación? 
(Pasos 610-690) 


T(5) no es 
igual a W 
por lo que 
la bandera 
sube y 


5h. a 


El jugador gana el juego si ha reunido todos los tesoros en 
una misma habitación. La manera de saberlo es comprobar 
los números almacenados en la matriz T, ya que serán todos 
iguales cuando todos los tesoros están en una misma 
habitación. Para hacerlo toma un elemento de T, T(1) por 
ejemplo, y almacénalo en una variable temporal que 
llamaremos W. A continuación compárala mediante un bucle 
con todos los demás números almacenados en T. Utiliza con 
todos los demás números almacenados en T. Utiliza una 
variable bandera para indicar si son o no todos los números 
iguales. ? y 

12. ¿Ha gastado todas sus 13. ¿Ha cambiado el jugador 

E de posición? (pasos 800-85-) 

jugadas? (Pasos 700-750) 


CY 


por lo que 
es igual 7 


S 
O 
S 


O 
ENS > ESSSS Ñ 


S 


Ó 


—= 


N 


En el paso 600, suma l a la 
variable M para llevar la 
cuenta de las jugadas que 
se han realizado. 


¿QUE QUIERES HACER? 


CONTINUAS EN LA HABITACION 7 


-Y-- Si el jugador introdujo N, E, Su O en A$ en 
el paso INPUT, mándale de vuelta al paso 400 
para identificar la nueva habitación y sus 
contenidos. Si no lo ha hecho, recuérdale su 
posición y haz que la computadora vuelva al 


disponer el jugador.Si M es mayor que 
este número, entonces el jugador pierde. Si es 
éste el caso escribe un mensaje y para el paso INPUT (500). 
programa. 
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Solución a los problemas | 


En las páginas siguientes encontrarás todas las respuestas de los problemas y 
proyectos de este libro. Los programas están escritos en BASIC standard, por lo que 
quizás tengas que convertir algunas instrucciones no estandarizadas como RND o CLS 
para que funcionen en tu computadora. Si alguno de los programas no te funciona, 
comprueba que tu computadora admite todas las instrucciones BASIC del programa. En 
la página 47 encontrarás una tabla de conversión que te puede ser útil. Los pasos que 
necesitan ser alterados completamente para que valgan para las computadoras Sinclair 
(Timex) están señalados con A dándo de los pasos válidos a continuación. Los pasos que 
sólo han de ser cambiados para el ZX81 (Timex 1000) están señalados con A. 

En ocasiones verás que los programas que tú has escrito son diferentes a los que se 
ofrecen en las soluciones. Esto no importa siempre que tu programa funcione bien. Sin 
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embargo, estudia la solución y procura que el programa sea lo más corto y claro 


posible. 


Conociendo el BASIC (páginas 4-5) 
Programas simples 


1 40 PRINT «HOLA»; 
50 PRINT AS 


Este punto y coma hace que la computadora continúe 
en la misma línea para escribir A$. 


2 40 PRINT «HOLA», A$ 
50 BORRA ESTE PASO 


La coma hace que la computadora deje algunos 
espacios antes de escribir A$. 


3 40 PRINT TAB(6); «HOLA»; A$ 
50 BORRA ESTE PASO 


Algunas computadoras no necesitan punto y coma 
detrás de TAB. 


4 40 PRINT « 
50 PRINT « 


ADIOS» 
»; AS 


Problemas de variables (páginas 6-7) 
Elección de nombres de variables 


Estos nombres contienen palabras en BASIC y no 
pueden usarse como nombres de variables: LETRAS 
(LET); RUN$ (RUN). El ZX81 (Timex 1000) sólo 
admitirá nombres de variables de cadena de una sola 
letra, por lo que tampoco puedes usar MOSCAS. 


Problema con PRINT 


10 LET A=66 
20 LET B=77 
AA 30 LET RR$=«ROBOTS OXIDADOS» 
40 PRINTA; «  »; RR$; «COMIERON» 
50 PRINT B; «SALCHICHAS CHAMUSCADAS» 


Un espacio vacío entre comillas hace que la 
computadora deje un espacio en blanco. 
Fijate en un programa 


45.PRINT «C IS»; € 
55 PRINT «D IS»; D 


Grados centígrados a Farenheit 


40 LET C=9/B 
50 LET D=CxA 
60 LETR=D+F 


Cambia los pasos 40-60 como se indica aquí. 


Problema: escribir un programa 


10 LET U$=«UG» 

20 PRINT «QUE PALABRA» 
30 INPUT W$ 

40 PRINT «EN UGIANO ES»; 
50 PRINT U$; W$ 


El paso 50 hace que la computadora escriba UG 
seguido de la palabra almacenada en W?$. 


2 10 PRINT «CUAL ES LA DISTANCIA»; 
20 INPUTD 
30 PRINT «CUANTO TARDASTE»; 
40 INPUT T 
50 LET S=D/T 
60 PRINT «TU VELOCIDAD ERA DE»; S; 
70 PRINT «MILLAS POR HORA» 


|En el paso 50, la computadora calcula la velocidad y 
la almacena en S*. 


3 10 LET A=30 

20 LET B=20- 

30 LET S=35 

40 LET T=S/B 

50 LET C=A*T 

60 LET D=C+S 

70 PRINT «DEBEN COMPRAR»; 
80 PRINT D; «SALCHICHAS.»; 
90 PRINT «TARDARAN»; 
100 PRINT T; «HORAS» 


A y B son las salchichas que pueden comer los robots 
en una hora. S son las salchichas que quiere comer el 
robot 2 y T el tiempo que tarda el robot 2 en comer 
sus salchichas (S). El paso 50 calcula el número de 
salchichas que el robot 1 come en ese tiempo (T) y D 
es el número total de salchichas. 


Repetición de cosas (páginas 8-9) 
Problema: Bucles : 


1 10 FOR J=1 TO 100 
20 PRINT «HOLA»; 
30 NEXT J 


El punto y coma del paso 30 hace que la 
computadora permanezca en el mismo paso para 
escribir la siguiente palabra. 

10 FOR J=1 TO 25 


20 PRINT TAB(15); «HOLA» 
30 NEXT J 


Así la computadora escribe una columna de 25 HOLAs 
a 15 espacios de la parte izquierda de la pantalla. 


*En algunas computadoras (ej.: Vic 20 y Pet) no hace falta el punto y coma al final de los pasos PRINT 


antes de INPUT. 


3 El paso 20 está mal, ya que afecta al contador de 
bucle, I. Cada vez que se ejecuta el bucle, el 
paso 20 cambia el valor de l, de 1 a 0. 


Problemas con step 


1 10 FOR |=25 TO 1 STEP-1 
20 PRINT TAB(1); «HOLA» 
30 NEXT 1 


Utiliza la variable del bucle (1) como tabulador. 
Asegúrate de que I no sea mayor que la anchura 


de tu pantalla. Cada vez que se ejecute el bucle a 1 
se le resta 1. 


10 FOR L=5 TO 0 STEP-1 
20 PRINT TAB(5); L; TAB(10); LeL 
30 NEXT L 


Step-1 hace que la variable del bucle cuente al 
revés de 5 a 0. Cada vez que se ejecuta el paso 20 
escribe el valor de L y luego lo eleva al cuadrado. 


10 PRINT «INICIO»; 

20 INPUTA 

30 PRINT «FINAL»; 

40 INPUT B 

50 PRINT «SALTAR»; 

60 INPUTC * 

70 FOR J=A TO B STEP C 
80 PRINTJ; « »; 

90 NEXT J 


El bucle de los pasos 70-90 utiliza A para asignar el 
valor inicial de la variable del bucle, B para asignar 
el valor final y C para asignar los saltos (step). 


Mensaje secreto 


10 PRINT «MENSAJE SECRETO» 

20 PRINT «MEMORIA EN 5 SEGUNDOS» 
30 PRINT «LUEGO DESAPARECERA» 

40 PRINT 


50 PRINT «REUNIRSE CON AGENTE X. 2.00 AEROPUERTO» 


se a O UEM Bucle de retardamiento 


80 CLS Borra la pantalla 


Programa para dibujos 


2 50 PRINT TAB(A—K); «x»; 
60 PRINT TAB(A+K); e» 
70 NEXT K 


A es el vértice superior del programa. Para dibujar 1 
parte izquierda, restas K de A y para la derecha 
sumas K a A. 


3 


30 BORRA ESTE PASO 
40 FOR K=9 TO 1 STEP-1 
80 PRINT TAB(A); «x» 


Cambia estos pasos para que aparezca la figura boca 
abajo. Para realizar los demás dibujos de la página 9 
usa el mismo programa con diferentes posiciones 
TAB. 


Problemas de bucles (páginas 10-11) 


Bucle para hacer que el programa vaya 
más lento 


Podrías añadir este bucle anidado en el paso 45 o 
en el 55. 


45 FOR K=1 TO 1000 
48 NEXT K 


Chinches en los bucles 
Los pasos 50 y 70 están mal; deberían ser así: 


50 NEXT K 
70 NEXT | 


Contador binario 


Para hacer un programa que cuente números de 
ocho cifras necesitarás cuatro bucles más (E, F, G, 
H). Tendrás que volver a numerar el programa y 
alterar los pasos PRINT de esta manera: 


PRINT H+G+2+F*4+ExB+Dx*16+0+32+B+64+ 
Ar 128; «=»; 
PRINT A;B;C;D;E;F;G;H 


Mensaje intermitente 


10 FOR J=1 TO 10 

20 CLS 

30 FOR K=1 TO 1000: NEXT K 

40 PRINT TAB(10); «PELIGRO» 

50 PRINT TAB(7); «ATAQUE ESPACIAL» 
60 FOR K=1 TO 1000: NEXT K 

70 NEXT J 


es un programa para que aparezca un mensaje 
een repasa cambiar el tamaño del bucle 
de retardamiento, así como las posiciones TAB para 
que se adapte a tu pantalla. Si tu computadora no 
admite pasos con varias instrucciones, pon la 
instrucción NEXT K en el paso siguiente. 


Bucle del 
minutero 


Bucle del 
segundero 


Haz que el bucle K se ejecute en 1 segundo. 


Reloj de la computadora 


10 FOR J=0 TO 59 

20 FOR K=0 TO 59 

30 PRINT UY «DD; K 

40 FOR L=1 TO 500: NEXT L 
50 CLS 

60 NEXT K 

70 NEXT J 


Despegue del cohete 


10 CLS 
A 20 FOR I=1 TO 20 
30 PRINT 
40 NEXT 1 
50 PRINT « x » 
60 PRINT « xxx* » 
70 PRINT « xxx » 
80 PRINT « *xx* » 
90 PRINT «xx *x*» 
100 FOR J=1 TO 25 
A 110 PRINT 
pe NEON. TONOG0 —— Bucle de retardamiento 
140 NEXT J 


El bucle de los pasos 20-40 hace que la computadora 
deje líneas en blanco para que el cohete aparezca en 
la parte inferior de la pantalla. Los pasos 50-90 dibujan 
el cohete. Debes hacer que el bucle de los pasos 100- 
140 se repita tantas veces como el número de líneas de 
tu pantalla. Cada vez que se ejecute el bucle la 
computadora deja una línea en blanco y el cohete sube 
una línea hacia arriba. 


Cambios para Sinclair (Timex) 


Para ejecutar el programa en el Spectrum (Ti 
imex 
2000) aprieta ENTER cuando a arezc: j 
scroll en la pantalla. s io 
A Para el ZX81 (Timex 1000) cambia estos pasos 
20 FOR l=1 TO 17 ; 
110 SCROLL 


pei 


A e e 


Programa del saltador 


10 FOR J=1 TO 25 STEP 2 


20 CLS 

20 PAINT TAB(J); «o» 

40 PRI pa 

50 PRINT TAB(J); «<0>» 
60 PRINT TAB(J); «ZW» 
70 FOR K=1 TO 1000 


80 NEXT K 


CLS 
Mu PRINT TAB(J+1); «<o>» 
110 PRINT TAB(J+1); «O» 
120 PRINT TAB(J+1); «/W 
130 FOR K=1 TO 1000 
140 NEXT K 
150 NEXT J 


Haz que el bucle de los pasos 10-150 se ejecute 
tantas veces como el número de caracteres que 
caben a lo ancho de tu pantalla. Los pasos 40-60 
dibujan al hombre en la posición inicial. Los pasos 
70-80 y 130-140 son bucles de retardamiento inicial. 
Los pasos 70-80 y 130-140 son bucles de 
retardamiento que hacen posible que el hombre 
permanezca en la pantalla un momento. Los pasos 
100-120 dibujan al hombre en la segunda posición. 


Ejercicios con IF/THEN (páginas 12-13) 
Tablas de multiplicar 


55 IF B<>J*A THEN PRINT «MAL»; 
y; «Xn; A;¡a=»; JxA 


Añade este paso para que la computadora te diga 
si tu respuesta está mal. 


Contraseña 


50 IF P5<>S$ THEN PRINT «MAL. 


CABEZOTA» 
60 IF P$=S$ THEN PRINT «OK CONTINUA» 


Añade estos pasos (con tus propios mensajes) para 
completar el programa de la contraseña. 


10 LET S$=«SALCHICHAS» 

20 LET N=007 Y 

30 PRINT «CONTRASENA, POR FAVOR»; 
40 INPUT PS 

50 PRINT «NUMERO SECRETO»; 

60 INPUT SN 

70 IF P$<>S$ OR SN<>N THEN PRINT 
«MAL. TABEZOTA» 

80 IF P$=S$ AND SN=N THEN PRINT 
«OK. CONTINUA» 


Cambia el programa de la computadora de esta 
manera para que la computadora te pida también 
un número secreto. 


Calculadora en la computadora 


10 PRINT «PIENSA EN UN NUMERO»; 
20 INPUT X 

30 PRINT «Y OTRO»; 

40 INPUT Y 

50 PRINT «QUIERES:» 

60 PRINT «SUMAR, RESTAR, DIVIDIR» 
70 PRINT «O MULTIPLICAR?» 

80 INPUT AS 

90 IF AS=«SUMAR» THEN LET A=X+Y 
100 1F AS=«RESTAR» THEN LET A=X-Y 
110 IF AS=«DIVIDIR» THEN LET A=X/Y 
120 1F AS=«MULTIPLICAR» THEN LET A=X+Y 
130 PRINT «LA RESPUESTA ES»; A 


La computadora realiza una operación diferente 
según la respuesta que introduces en AS. 


Adivinanzas 


45 IF Y<X THEN PRINT «DEMASIADO PEQUEÑO» 
46 IF Y>X THEN PRINT «DEMASIADO GRANDE)» 


Añade estos pasos para que la Computadora te 
diga si tu número es demasiado grande o 
demasiado pequeño. 

5 LETN=0 

55 LET N=N+1 

56 IF N>5 THEN STOP 


Añade estos pasos para contar el número de 
intentos y para el programa después de cinco. 


Juego con palabras 


10 PRINT «PALABRA, POR FAVOR» 
20 INPUT WS 

30 PRINT «PISTA, POR FAVOR» 

40 INPUT C$ 

50 CLS 

60 PRINT «PISTA:» 

70 PRINT CS 

80 PRINT «ADIVINA LA PALABRA» 
90 INPUT G$ 

100 IF (G1=H1 AND G2<>H2) OR (G2=H2 
110 PRINT «NO» : 

120 GOTO 90 

130 PRINT «Sl» 


Los pasos 10-40 hacen que la computadora te pida 
una palabra y una pista. 

Los pasos 50-60 borran la pantalla y escriben la 
pista. 

El paso 120 manda la computadora de vuelta al 
paso 90 para otro intento. 


Carrera de caballos 


Estos son los pasos IF/THEN completados para la 
Carrera de Caballos. 


80 |F G1=H1 AND G2=H2 THEN GOTO 160 

90 IF G1=H2 OR G2=H1 THEN GOTO 150 

100 IF (G1=H1 AND G2<>H2) OR (G2=H2 , 
AND G1<>H1) THEN GOTO 140 
120 IF N=4 THEN GOTO 170 


Paso 80: Debes mandar a la computadora al paso 
160, si los dos pronósticos son ciertos.  ' 

Paso 90: Si el caballo es correcto pero la posición 
está mal, manda a la computadora al paso 150. 
Paso 100: Si uno de los dos pronósticos es correcto, 
ve al paso 140. 

Paso 120: Tras cuatro intentos, manda a la 
computadora al paso 170. 


Ideas para mejorar el juego 


15 LET S=0 
140 PRINT «UN PRONOSTICO CORRECTO»: LET 
S=2: GOTO 120 
160 PRINT «CORRECTO:» LET S=4 
180 PRINT «TU PUNTUACION ES»; S 


Esta es una idea para un sistema de puntuación 
que da cuatro puntos por adivinar los dos caballos 
y dos puntos por tener uno bien. La variable 5 
contiene la puntuación. 

190 PRINT «¿QUIERES VOLVER A JUGAR? (Y/N)» 

200 INPUT Z$ 


210 IF Z5=«Y» THEN GOTO 10 
220 IF Z$=«N» THEN STOP 


Para dar la ocasión al jugador de volver a jugar, 
introduces estos pasos. 


Números aleatorios (páginas 14-15) 


Números aleatorios entre el 10 y el 20 


INT(RND(1)+*11+10) 


Para hacer esto, multiplica por la cantidad de 
números posibles (11) y a continuación suma el 
primer número posible (10). Utiliza la instrucción 
RND de tu computadora. 


Problema: alterar un programa 
20 LET X=INT (RND(1):20+1) 


Cambia el paso 20 del juego de acertar números 
para hacer que la computadora escoja un número 
aleatorio entre 1 y 20. 


Secuencia de números 


Añade estos pasos al programa para tener un juego 
de secuencia de números. 


5 PRINT «ACIERTA EL NUMERO SIGUIENTE» 
7 PRINT «DE ESTA SECUENCIA» 

10 LET X=INT(RND(1)+ 10+) 

20 LET Y=INT(RND(1)+10+1) 

60 LET A=X+4+Y 

70 INPUT N 

80 IF N=A THEN PRINT «CORRECTO» 

90 IF N<>A THEN PRINT «MAL. ES El»; A 

100 GOTO 5 


El paso 60 calcula el siguiente número de la 
secuencia. 


Fuga de Zorgos 


Secuencia aleatoria 


24 LET R=INT(RND(1)x3+1) 
25 IFR=1 THEN, GOTO 30 
26 IF R=2 THEN GOTO 40 
27 IF R=3 THEN GOTO 50 


Para seleccionar una secuencia aleatoriamente haz 
que la computadora escoja un número entre el 1 y 
3 aleatoriamente y lo almacene en R. Manda a la 
computadora a una secuencia diferente según sea 
el número almacenado en R. K 


30 FOR |=1 TO 3 
33 PRINT X+l+l 
35 NEXT | 

37 LET A=X+4x4 
39 GOTO 70 


40 FOR |=1 TO 3 
43 PRINT lxl-Y 
45 NEXT | 

47 LET A=4+4-Y 
49 GOTO 70 

50 FOR |=1 TO 3 
53 PRINT X+Y=1+l 


55 NEXT 1 
57 LETA=X+Y-4x4 


Para añadir tres secuencias diferentes de números 
al programa, borra los pasos 30-60 y añade un 
bucle para cada secuencia. Al final de las dos 
primeras secuencias manda a la computadora al 
paso 70. 


10. LET C=10 € Lleva la cuenta del número de chips. 


20 PRINT «TIENES»; C; «CHIPS» 
30 PRINT «COLOCA TU APUESTA:»; 
40 INPUT B 


50 IF B>C THEN PRINT «NO TIENES O EDAD A TO: ai, EAN presente que la apuesta no puede ser mayor 
TANTOS CHIPS»: GOTO 20 que el número de chips. 


60 LET C=C-B 


Calcula cuántos chips quedan. 


_OÓOAA <<< < «<A 
70 LET X=INT(RND(1)+6+1) Escoge dos números aleatorios entr 
80 LET Y=INT(RND(1)x6+1) | a co 


90 PRINT «APRIETA P PARA TIRAR:»; 
100 INPUT P$ 


110 1F P$<>«P» THEN GOTO 90 )—————————————————— Comprueba lo que introduce el jugador. 


120 PRINT TAB(5); X; TAB(10); Y] ——————————————— Escribe los números elegidos en la pantalla. 


130 IF X=Y THEN GOTO 250 


140 IF X+Y=10 OR X+Y=11 THEN GOTO 210 IH——— oompructa los números y manda a la 
150 IF X+Y=6 OR X+Y=7 THEN GOTO 190 computadora a diferentes pasos para que calcule 


160 PRINT «LO SIENTO. PIERDES LO APOSTADO» 


la puntuación. 


170 IF. C=0 THEN GOTO 290 Y Comprueba el número de chips que quedan. Si 
Cc 


= (, manda a la computadora al final del 
programa. 


Hace que la computadora vuelva a por otra 
apuesta. 


Ajusta el valor de C. 


180 GOTO 20 
190 PRINT «NO PASA NADA. CONSERVAS LA APUESTA» 


200 LET C=C+B: GOTO 20 
210 PRINT «BIEN HECHO. TRÍPLICAS LA APUESTA» 


220 LET C=C+(B*3) 


230 1F C>=50 THEN GOTO 320 ——————————— Si C es 50 o más, manda a la computadora al 


240 GOTO 20 

250 PRINT «DUPLICAR LA APUESTA» 
260 LET C=C+(B*2) 

270 IF. C>=50 THEN GOTO 320 


280 GOTO 20 
290 PRINT «LO SIENTO. TE HAS QUEDADO SIN CHIPS» 


300 PRINT «NO HAY ESCAPE DE ZORGOS» 


310 STOP 
320 PRINT «BIEN HECHO. AHORA PUEDES ESCAPAR» 


330 PRINT «DE ZORGOS CON»; C; «CHIPS» 


final del programa. 


e 


Papel, piedra O tijeras: localiza los errores 


Corrige estos pasos como Se indica a continuación 
para hacer que el programa funcione bien. 


0 LET R=INT(RND(1) «3+1) 
30 IF R=3 THEN LET C$= e ISROSAR 
150 IF C$=«TIJERAS» AND AS=«Pl 


THEN LET F=1 
INT «POR TANTO »; 
20 EF THEN PRINT «TU GANAS» 
230 IF F=0 THEN Ta hal 
F=1 THEN LET A=A+ 
280 E C<10 AND A<10 THEN GOTO 40 


Jugar con caracteres (páginas 16-17) 
Problemas con cadenas 
1 A 40 PRINT TAB(K);MIDS(N$,K,1) 


Esto hace que la computadora escriba de una en 
una las letras de la palabra en la posición de TAB 
K, comenzando con la letra número K. 


10 LET K$=«CANGURO» 
2  20LETL=LENIKS) 
30 FOR J=L TO 1 STEP-1 
A 40 PRINT MIDS(KS.J,1); 
50 NEXT J 


Utiliza un bucle con step-1 para hacer que la compu- 
tadora escriba una palabra comenzando por detrás. 


3 A 50 PRINT RIGHTS(S$,L—J)+LEFTS(S$.J) 


Cada vez que se ejecuta el bucle, RIGHT$(S$,L-J) 
hace que la computadora escriba L (la longitud de 
la palabra) menos ] letras desde la derecha del 
círculo, y luego añade ] letras desde la izquierda. 
Intenta ejecutar este programa con distintas 
palabras. 


La palabra más larga 


A 50 IF LEN(WS)<LEN(AS) 
THEN LET AS$=W$ 


Cada vez que se ejecuta el bucle, la computadora 
compara la longitud de W$ con A$. Si W$ es más 
largo que AS, sustituye A$ por W$ y pasa a 
comparar la siguiente palabra. Al final, A$ tendrá la 
palabra más larga de las introducidas. 


Palabra más corta 


10 LET AS=«XXX!8SISIABC***1231111 
XXXIII 

50 IF LEN(WS)<LEN(AS) 

THEN LET A$=WS 

70 PRINT «PALABRA MAS CORTA» 


Este programa es igual al de la palabra más larga, 
excepto en los pasos 10 y 50. El paso 10 contiene 
úna cadena de caracteres para que la computadora 
compare la longitud de cada palabra con ella. No 
importa qué caracteres introduzcas en A$. 


Editor de palabras 


Estos son los pasos completados del editor de 
palabras. 


40 LET S$=« »+S$+u » 
70 LET W$=u »+W$+u » 


Tienes que añadir espacios a ambos lados de s$ 
W$ para estar seguro en el paso 140 de que la 
computadora sólo busca palabras. Sin los espacios 
la computadora tomaría cualquier caracter de la ; 
frase que coincidiese con S$ o W$. Intenta ejecutar 
el programa sin dejar espacios para ver lo que 
sucede. 


100 LET LS=LEN(S$) 
110 LET LW=LEN(WS$) 


Estos pasos hacen que LS valga lo mismo que la 
longitud de S$ y LW lo mismo que la longitud de 
W$. El paso 100 se vuelve a repetir en el 160 para 
hacer que LS valga la longitud de la nueva frase. 


A 140 IF MIDS(S$,K,LW)=W$ 
THEN LET A$=S$ 


Cada vez que se repite el bucle MID$ (S$, K, LW) 
hace que la computadora revise LW (la longitud de 
W$) caracteres de S$, comenzando en el caracter 
K. Cuando encuentra una secuencia de caracteres 
que coinciden con W$ almacena la frase completa 
en una nueva variable A$. 


A150 IF A$=S$ THEN LET S$=LEFTS(A$,K) 
+N$+RIGHTS(A$,LS—(K+LW-2)) 


LEFT$(A$,K) saca el número de caracteres a la 
izquierda de la palabra que piensas reemplazar. La 
mejor forma de entender cómo funciona esta línea 
es sacándola con una frase en un trozo de papel. 


180 IF K<=LS—LW+1 THEN GOTO 140 


Manda a la computadora de vuelta al paso 140 para 
revisar el resto de la frase si la palabra que quieres 
sustituir se halla más de una vez. 


Cambiar pasos a las computadoras 
Sinclair (Timex) 


Problemas con cadenas 


Incluye estos pasos en los Problemas con Cadenas 
soluciones 1, 2 y 3. 


1 40 PRINT TAB(K)¿NS(K TO K) 
2 40 PRINT K$(J TO J); 


3 50 PRINTSS(U+1 TO )+S$( TO J) 
Editor de palabras 


140 1F SS(K TO K+LW-=1)=WS THEN 
LET A$=S$ 


150 IF A$=S$ THEN LET S$=A$( TO K) 
+N$+AS(K+LW=1 TO ) 


Sustituye estos pasos en el programa Editor de 
palabras. 


Más operaciones con caracteres 
(página 18) 


Problemas con letras Compara letras 
1 Ano FOR K=6570 90 10 INPUT X$,YS de: 
Estos son los números ASCII para escribir el ue ed THEN PRINT X3; «VIENE AN 
alfabeto. En el ZX81 (Timex 1000) los números 30 IF Y$<X$ THEN PRINT YS; «VIENE ANTES 
son 38 a 63. de 

40 GOTO 10 


do DN NCH TO 122 
INT CHR$(K); E , 
30 NEXT K Si tu computadora sólo admite una variable 
A detrás de INPUT, utiliza dos pasos INPUT. 
Estos son los números para escribir el alfabeto 


en minúsculas (En algunas computadoras como T í 
s ransformar en mayúsculas 
el Dragón que no utiliza minúsculas, estos » 
números se utilizan para un grupo de 50 IF X$>=u > 
; t =«a» AND X$<=«z» THEN PRINT 
mayúsculas diferentes). CHR$(ASC[XS$)-32); 


60 IF X$>=«A» AND X$<=«Z» THEN PRINT 


3 At ue R=INT(RND(1)*26+65) CHR$(ASCIX$)-32); 


20 PRINT CHRS(R) 


, 


30 GOTO 10 
El número que falta en los pasos 50 y 60 es el 
Esta es la forma más sencilla de escribir una 32. Esta es la diferencia en el número de 
serie de letras aleatorias. Para el ZX81 (Timex código de las mayúsculas y el de las 
1000) sustituye 65, el número de código de la : minúsculas. Hecha un vistazo a la tabla de 
primera letra del alfabeto, por 38. números de código de tu manual. 


A A O: E TA 
Programas para escribir en clave 


(página 19) A Programa para escribir en clave en el 
Programa para escribir en clave 2X81 


Este es el programa completo con los números 
y símbolos que faltaban. Utiliza este programa 


para el Spectrum (Timex 2000) pero cambia la 10 PRINT «CUAL ES TU MENSAJE» 
instrucción ASC por CODE. Para el ZX81 5 FOR e LENIN, 
mi 1 S 
(Timex 1000) utiliza el programa de la derecha. 40 LET X=CODE(MS(J TO J)) 
10 PRINT «CUAL ES TU MENSAJE» 50 1F X<38 OR X>63 THEN LET N=X 
20 INPUT M$ 55 1F X<38 OR X>63 THEN GOTO 100 
30 FOR J=1 TO LEN(MS) 60 IF INT(J/2)=J/2 THEN LET N=X+1 
Ao EA GASCIMIDS(MS.,1)) 70 IF INT(J/2)<>J/2 THEN LET N=X-1 
THEN LET N=X: GOTO 100 80 IF N<38 THEN LET N=N+26 
60 IF INT(J/2)=J/2 THEN LET N=X+1 90 IF N>63 THEN LET N=N-26 
70 IF INT(J/2)<>J/2 THEN LET N=X-1 100 PRINT CHRS(N); 
80 IF N<65 THEN LET N=N+26 110 NEXT J 


90 IF N>90 THEN LET N=N-26 
100 PRINT CHR$(N); 
110 NEXT J 


Los pasos 60-70 comprueban si la variable del bucle J] es par o impar dividiendo entre 2 y utilizando INT 
para convertir el resultado en un número entero. A continuación la computadora comprueba si la respuesta 
es igual a J/2 y si no lo es J es un número par. 


Número en clave 

Para este programa utiliza el anterior añadiéndole 
unos pasos que hagan posible el introducir un 
número de clave. También tendrás que cambiar el 


Clave inversa 


paso 60 para sumar el número clave (K) al número 10 INPUT «MENSAJE »;M$ 
de código ASCII (X) de cada caracter, así como on 20 FOR J=1 TO LEN(M$) STEP 2 
30 PRINT MID$(M$,J+1,1); 
borrar el paso 20. ¿A 40 PRINT MIDS(M$,J,1): 
50 NEXT J 
25 PRINT «¿CUAL ES EL NUMERO DE CLAVE?» 
50 LET NIGER Step 2 hace que la computadora cuente de dos en 
70 BORRA ESTE PASO dos. Cada vez que se repite el bucle escribe el 
Clave de bucle segundo caracter (] + 1) de cada pareja en la 


pantalla, seguido del primer Caracter (J). 


Este es también el Programa para Escribir en 
Clave pero haciendo que en el paso 60 se le sume 
la variable del bucle (J) al número de código ASCII 
de cada carácter. 
60 LET N=X+J 
70 BORRA ESTE PASO 
Descodificador de clave de bucle 
Para escribir un descodificador cambia el paso 60 a: 
60 LET N=X-J 


Cambios para hacer | 
Sinclair (Timex) 


30 PRINT MS(U+1.TO J+1); 
40 PRINT MS(J TO J); 


a clave inversa en 


Utiliza la 
instrucción INKEY$ que 


entienda tu computadora. 


Ejercicios con INKEYS (págirras 20-21) 
Escribe HOLA 


10 LET AS=INKEYS 

20 IF A$=w» THEN PRINT « »; 
30 IF A$<>« » THEN PRINT «HOLA»; 
40 GOTO 10 


Haz que la computadora espere 


10 LET A$S=INKEYS 

20 IF A$=«» THEN GOTO ha 
í DEL PROGRAMA... 
Si no se aprieta ninguna tecla, AS está vacía y 30 RESTO 

la computadora deja un espacio en blanco 

(paso 20). Si se aprieta una tecla, se 00 
en A$ y la computadora escribe HOLA (paso JU). 


El paso 20 hace que la computadora repita el paso 
10 siempre que no se aprieta ninguna tecla. 


Matemáticas rápidas con chinches 
Corrige los pasos como se indica a continuación para hacer que el programa funcione bien. 


Pon las comillas que faltan. 
lER TECLA CUANDO» n 
A tc ci Multiplica por 25 y suma 1 para obtener un número 
A ea aleatorio entre el 1 y el 15. 


80 PRINT Xzu + »;Y;u =>» ]—————————— Quita las comillas que hay delante de la X. 
Y————————— El nombre de la variable debe ir antes que INKEY$. 
AMA 0 ARO N debe ir hasta 50 para dar cabida a todas las 
140 1F N<50 THEN GOTO 90 Hs  — respuestas posibles de X + Y. 
160 FOR K=1 TO 1000:NEXT K Y-—————————— Variable incorrecta detrás de NEXT. 
170 GOTO 40 O O el número de paso para que N vuelva a 
valer O. 


190 PRINT «SI. LA RESPUESTA ES»; X+Y ]—————— Coloca los nombres de las variables fuera de las 
comillas, 


Juego de coches de choque (página 21) 


Este es el programa para los coches de choque. 


10 CLS 

20 LET C=5 
30 LET |=1 

40 LET A=10 
50 LET D=I+A 


60 IF1=1 THEN LET N=1 ” Cuando 1 vale lo que los límites de la pantalla, N cambia de 
70 1F1=25 THEN LET N=0 valor. 

80 IF N=1 THEN LET Hé Cuando N es 1, el valor de 1 aumenta en uno. Cuando N es 
90 IFN=0 THEN LET I=1-1 cero, el valor de I disminuye uno. 

100 LET A$=INKEYS 


110: 1F AS=«w THEN LET C=C+1 ] é 
120 .1F AS=«» THEN LET C=C-1 Estos pasos te permiten conducir el coche. 


130 PRINT TAB(L);«!»;TAB(C);«z»;TAB(D);«l» AE 
E EN : Dib: L 
«140 IF C<=L OR C>=R THEN PRINT «se .CRASH8 **9> A A la carretera y/el coche 
150 GOTO 50 Calcula si el coche se ha estrellado. 


Manda de vuelta a la computadora al 
paso 50 para borrar el valor de D cada 


Añade este bucle de retardamiento si el programa vez que 1 cambia. 


va demasiado aprisa. 
142 FOR K=1 TO 400:NEXT K 


Sistema de puntuación Hacer que la carretera tenga curvas 
140 IF C<=L OR C>=R THEN GOTO 160 
145 IF AS<>« » THEN LET P=P+1 

160 PRINT «***CRASHx**» 

170 LET.CR=CR+1 

180 IF CR<=5 THEN GOTO 20 

190 PRINT «FIN DEL JUEGO» 

200 PRINT «TU PUNTUACION ES »:S 
210 STOP 


75 1F 1=5 OR |=10 THEN 
LET N=INT(RND(1)*2) 

76 1F 1=15 OR |=20 THEN 
LET N=INT(RND(1)+2) 


Una manera de hacer esto es dejar que la y 
computadora elija aleatoriamente en qué dirección 


40 


El paso 145 te da un punto cada vez que mueves el 
coche sin chocarte. El paso 180 para el programa 


después de cinco choques. Debes dar a CR (número 
de choques) y a P (la puntuación) un valor inicia] de 


0 al comenzar el programa. 


ir cuando l tome determinados valores. Para hacer 
esto tienes que cambiar el valor de N 
aleatoriamente cuando 1 valga por ejemplo 5, 10. 15 
y 20. 


Problemas con DATA (páginas 22-23) 


Comprobación de nombres 


50 IF X$«JIM» THEN PRINT «TU NOMBRE NO 

ESTA EN LA LISTA»:STOP 

80 DATA CHARLIE, JEMIMA, DICK EL TUERTO 

90 DATA SAMPSON,DELILAH,JIM 
Pon tu propia lista de nombres en pasos DATA 
como éstos teniendo cuidado de poner comas 
entre los nombres. Pon el último nombre de la lista 
en el paso 50. Si tu computadora no admite pasos 
con varias instrucciones, repite la instrucción 
IF/THEN con STOP en un nuevo paso. 


Volver DATA al principio 


10 FOR J=65 TO 90 Códigos ASCII 
20 FOR l=1 TO 19 Número de datos 
A340 IF LEFTS(NS,1)=CHRS(J) THEN PRINT NS 


Cambios para Sinclair (Timex) 
40 IF.N$(1 TO 1)=CHR$(U) THEN PRINT NS 


Localiza el chinche 


1. Los datos contienen símbolos como — y/, por lo 
que en el paso 20 debes cambiar la variable por 
una variable de cadena, como NS. 


Agenda de teléfono 


PRINT «QUE TELEFONO» 
PRINT «QUIERES» 
PRINT 


INPUT N$ 
READ X$,Y$ 
IF NS=X$ THEN GOTO 90 


2. La instrucción GOTO hace que la computadora 
continúe leyendo los datos después de haber 
llegado al final de la lista de datos, por lo que 
obtendrás un error del tipo «OUT OF'DATA AT 
LINE 50» (sin suficientes datos en el paso 50). Para 
resolver esto puedes usar un bucle que se repita. 
tantas veces como datos haya o poner el último 
dato en un paso IF/THEN como en el comprobador 
de nombres. 


El café de Joe 


10 PRINT «BIENVENIDOS AL CAFE DE JOE» 

20 PRINT «¿CUANTO QUIERE GASTAR?» 

30 INPUT X 

40 PRINT «ESTO ES LO QUE PUEDES TOMAR» 

50 PRINT 

60 READ Y,Y$ 

70 IF Y<=X THEN PRINT Y$ 

80 IF Y$=«BATIDO DE MENTA» THEN STOP 

90 GOTO 60 
100 DATA 1.99,GUISO DE CARACOLES A LA FRANCESA 


Lista todos los otros precios y datos del menú en 
pasos DATA terminando con BATIDO DE MENTA. 


Lee nombres almacenándolos en X$ y números en Y$. 


Va al paso 90 cuando encuentra el nombre. 


COToSo O ABRE INO LOCALIZADO» Pon el último nombre de tu lista 


PRINT XS;«:»;Y$ 

PRINT «¿QUIERES ALGUN OTRO NUMERO?» 
INPUT A$ 

IF AS=«Sl» THEN GOTO 150 

IF AS=«NO» THEN STOP 


Necesitas este paso por si en el paso 110 
PRINT «NO ENTIENDO»:GOTO 0 LA escribes algo que no sea sí o no. 
PERES TERNA 


RESTORE:GOTO 10 
DATA ARDILLA,670-5054 


DATA ROBOT OXIDADO,60-14-444  lZlm—, 


Uso de matrices (páginas 24-25) 
Matrices numéricas 


10 DIM N(6) 
50 DATA 1066,1216,1485,1603,1665,1959 


Escribir los datos en la pantalla 


Necesitarás un bucle como éste para escribir los 
datos en la pantalla (acuérdate de renumerar el 
paso DATA). 


50 FOR K=1 TO 6 
60 PRINT «N(«;K;») IS »;N(K) 
70 NEXT K 


Este bucle escribe los elementos de la matriz 
aleatoriamente. 


50 FOR K=1 TO 10 

60 LET R=INT (RND(1)*6+1) 
70 PRINT N(R), 

80 NEXT K 


Matrices de 
caracteres 


A10 DIM N$(5) 
20 FOR I=1 TO 5 
A 30 READ NS(I) 
40 NEXT 1 
50 FOR |=1 TO 5 
60 PRINT «N$(«;l;») IS »;N$(1) 
70 NEXT | 
80 DATA TONY,CORINNE, JULIA, CHRIS,GABY 


Cambios para 
Sinclair (Timex) 


10 DIM N$(5,7) 
AA 30 INPUT N$(1) 


entre las comillas de este paso. 


Manda a la computadora al principio de la 
lista de datos. 


Lista nombres y números en pasos DATA como éstos. 


Calculador de meses 
Completa los pasos que faltan y las variables de la 
siguiente manera: 


ZA10 DIM M$(12),D(12) 

AA 30 READ MS(K),D(K) 
70 PRINT MS(N);« TIENE »; 
80 PRINT D(N);« DIAS » 


Añade el resto de los pasos data de esta forma: 
A 90 DATA ENERO,31 


Incluye estos pasos para alterar el programa. 


50 PRINT «QUE MES» 
60 INPUT A$ 
62 FOR |=1 TO 12 
As63 IF M$(1)=A$ THEN LET F=1 
64 NEXT | 


70 PRINT A$;« TIENE »; 
80 PRINT D(F);» DIAS » 


Cambios para Sinclair (Timex) 


10 DIM M$(12,9) 
15 DIM D(12) 
30 INPUT M$(K) 

AA 35 INPUT DIK) 


63_1F MS(I) (TO LEN(A$))= 
Leo ) (A$))=A$ THEN 


E KK 


Programa para decidir qué hacer 


A10 DIM I$(10) 
20 FOR K=1 TO 10 
¿A 30 READ IS(K) 
40 NEXT K 
50 PRINT «ESCOGE UN NUMERO DEL 1 AL 10» 
60 INPUT N 
70 PRINT «POR QUE NO »; 
80 PRINT IS(N) 
90 PRINT «O.K. »; 
100 INPUT AS 
110 IF AS=«Sl» THEN STOP 
120 PRINT:GOTO 50 
130 DATA PINTAS UN CUADRO,LEES UN LIBRO 


Añade tus datos en el paso 130. 


Cambios para Sinclair (Timex) 


10 DIM 1$(10,?) 
A30 INPUT 1 SIK) 


Cuenta cuántos caracteres tiene tu cadena más 
larga y coloca la cifra en la instrucción DIM. 


Tabla de números aleatorios 


100 FOR K=1 TO 10 
110 PRINT K;TAB(4); 
120 FOR L=1 TO A(K) 
130 PRINT «.» 

140 NEXT L 

150 PRINT 

160 NEXT K 


Escribir subrutinas (página 26) 
Encuesta sobre helados 


A 10 DIM 15(5),N(5) 
20 FOR K=1 TO 5 
A 30 READ | $(K), NIK) 
40 GOSUB 70 
50 NEXT K 
60 STOP. 
70 PRINT 1 $S(K);TAB(11);u »; 
80 FOR L=1 TO N(K) 
90 PRINT «*»; 
100 NEXT L 
110 PRINT 
120 RETURN 
130 DATA MELON, 16,PLATANO, 11 
140 DATA JENJIBRE,8,PEPINILLOS, 1 
150 DATA CHICLE, 18 


Necesitas la instrucción TAB en el paso 70 para 
estar seguro que la computadora dibuja los 
asteriscos a la misma distancia en cada línea. 


Cambios para Sinclair (Timex) 


10 DIM 1i5(5,10) 

15 DIM N(5) 

130 INPUT 1:$(K) 
AA 35 INPUT N(K) 


Hunde el submarino 


200 PRINT «FALLASTE» 

210 PRINT «DISPARA AL »; 

220 1F B=Y THEN GOTO 250 

230 IF B<Y THEN PRINT «NORTE»; 
240 IF B>Y THEN PRINT «SUR»; 
250 IF A=X THEN GOTO 280 

260 1F A<X THEN PRINT «ESTE» 
270 IF. A>X THEN PRINT «OESTE» 
280 RETURN 


Esta es la subrutina para comparar la situación del 
submarino con las coordenadas que da el jugador 
y escribir el correspondiente mensaje en la 
pantalla. 


Si tus respuestas 
incluyen símbolos o 


letras, alinéalos 
10 DIM Q$(20) ,A(20) y 
a 20 FOR K=1 TO 20 en orden. 
A 30 READ OSIK) ,A(K) 
40 NEXT K | 
50 FOR L=1 TO 20 


60 PRINT OS(L) 
70 INPUT X 
80 IF X=A(L) THEN PRINT «CORRECTO» pon tus respuestas y 
90 IF X<>A(L) THEN PRINT «NO TONTO. preguntas en pasos 
LA RESPUESTA ES »;A(L) data como éstos. 
100 PRINT 
110 NEXT L 
120 DATA ¿CUANTAS PATAS TIENE UN CIEMPIES?,100 
130 DATA ¿CUANTOS JUGADORES HAY EN UN EQUIPO DE FUTBOL?,11 


Veinte preguntas 


Cambios para Sinclair (Timex) 


10 DIM 0O$(20,?) 
15 DIM A(20) 
A 30 INPUT O$IK) 
A 35 INPUT A(K) 


Cuenta el número de caracteres de tu cadena más 
larga y pon la cifra en la instrucción DIM. 


Gira para una máquina tragaperras 


A10 DIM FS(6) 
20 FOR K=1 TO 6 
A 30 READ FSIK) 
40 NEXT K 
50 CLS 
60 LET T=10 ñ 
70 PRINT «TIENES »;T;« FICHAS» 
80 LET 1 $=INKEYS 
90 IF | $=w» THEN GOTO 80 
100 LET T=T-1 
110 CLS 
120 LET R=INT(RND(1)+6+1) 
130 LET AS=FS$(R) 
140 LET R=INT(RND(1)*6+1) Selecciona tres 
150 LET B$=FS(R) frutos de F$. 
160 LET R=INT(RND(1)*6+1) 
170 LET C$=F$(R) 


200 PRINT frutas 11 
210 IF AS=B$ AND B$=C$ AND . 4 
C$=«CEREZA» THEN GOSUB 270 

220 IF A$=B$ AND B$=C$ AND Los pasos 210- 

THEN GOSUB 310 230 calculan si 
C$<>«CEREZA» has ganado. 


230 1F (A$=B$ AND B$<>C$) OR 
(A$=C$ AND C$<>B$) OR (B$=C$ 
AND C$<>A$) THEN GOSUB 350 
240 IF T>0 THEN GOTO 70 
250 PRINT «NO TE QUEDAN FICHAS» 
260 STOP 
270 PRINT «3 CEREZAS» 
280 PRINT «GANAS EL ESPECIAL» a j 
290 LETT=T+20 agpemiina. 
300 RETURN 
310 PRINT «3 DE CUALQUIER CLASE» 
320 PRINT «GANAS 5 FICHAS» 2.* subrutina. 
330 LET T=T+5 
340 RETURN 
250 PAINT 2 DE AUALQUIER CLASE» 
« S 2 FICHAS» a Í 
370 LETT=T+2 poor. 
380 RETURN 
390 DATA LIMON,CEREZA,MELON 
400 CAMPANA,UVAS,CIRUELAS 


Cambios para Sinclair (Timex) 


10 DIM FS(6,6) 
A 20 INPUT FS(K) 


La caza del tesoro (páginas 28-33) 


Este es el programa completo para la caza del tesoro listado sección a sección en el orden correcto. Los 
cambios para las computadoras Sinclair (Timex) los encontrarás al final del programa. 


1 Crear matrices y leer los datos 


¿A1100 DIM N(7),E(7),S(7),0(7),D$(7), 
T$(7),T/7) 
110 FOR K=1 TO 7 
A 120 READ N(K) ,E(K) ,S(K) ,O(K) 
130 NEXT K 
140 FOR K=1 TO 7 
A 150 READ D$I(K) 
160 NEXT K 
170 FOR K=1TO7 
A 180 READ T$(K) ,T(K) 
190 NEXT K 
200 LET M=0 
210 LET C=0 
220 LET F=0 
230 LETO=0 
240 LET X=0 
250 LET Y=0 
260 CLS 


Ver paso 2000 para estos data. 


2 Subrutina ayuda 


300 GOSUB 1000 
Ver la subrutina en el paso 1000 


3 Selección aleatoria de una habitación 
350 LET R=INT(RND(1)x7+1) 


4 Identificar la habitación 


400 PRINT «ESTAS EN LA HABITACION »;R 
410 PRINT «ES »;DS(R) 
420 PRINT «CONTIENE:»; 


Identificar los contenidos 


430 FOR K=1 TO 7 

A 440 IF T(K)=R THEN PRINT TAB(15); 
TS(K):LET F=1 
450 NEXT K 
460 IF F=0 THEN PRINT TAB(15)«NADA» 
470 LET F=0 

A 480 PRINT:PRINT 


F es una variable bandera. En el paso 440, la 
bandera «sube» (F es 1) cuando uno de los 
números de la matriz T es igual al número de 
habitación (R). 


5 Entrada (input) del jugador 


500 PRINT «QUE QUIERES HACER » 

510 INPUT A$ 

520 IF AS=«AYUDA» THEN GOSUB 1000 

530 IF A$=«N» OR A$=«E» OR A$=«S» OR A$=«0» 

THEN GOSUB 1200 

540 IF AS=«COGER» THEN GOSUB 1300 

550 IF AS=«DEJAR» THEN GOSUB 1400 

560 IF AS=«POSICION» THEN GOSUB 1500 
Los pasos 520 a 560 mandan a la computadora a 
una determinada subrutina dependiendo de la 
palabra que el jugador escriba en la variable A$ 
(paso 510). pl 
10 Cuentan las jugadas 

600 LET M=M+1 


11 ¿Están todos los tesoros en la misma 
habitación? 


610 LET W=T(1) s 

620 FOR K=2 TO 7 a 

630 IF W<>T(K) THEN LET F=1 

640 NEXT K 

650 IF F=1 THEN GOTO 690 

660 PRINT «BIEN HECHO, TIENES TODOS 
LOS TESOROS» 

670 PRINT «EN LA HABITACION »;R;« EN »;¡M;a« 
JUGADAS» 

680 STOP 

690 LET F=0 


En el paso 610, el número almacenado en T(1) se 


introduce en la variable W. Dentro del bucle (paso 


630) la computadora compara W con todos los 
números almacenados en la matriz T. Si cualquier 
número T es diferente a W, la computadora hace 
que la variable de bandera (F) valga 1. Todos los 
números de la matriz T coinciden con W F 
conserva el valor 0 que significa que todos los 
tesoros están en una misma habitación. 


12 ¿Ha gastado el jugador todas sus 
jugadas? 
700 IF M<=28 THEN GOTO 730 
710 PRINT «LO SIENTO. SE TE HAN AGOTADO LAS 
JUGADAS» 


720 STOP 
730 PRINT 


Si M vale más que 29, el jugador ha agotado todas 


sus jugadas, por lo que el programa para. Puedes 
cambiar el número de jugadas que el jugador 
puede hacer. , 


13 ¿Ha cambiado el jugador de posición? 


800 IF A$=«N» OR A$=«E» OR A$=«S» OR - 
A$=«0» THEN GOTO 400 

810 PRINT «CONTINUAS EN LA HABITACION »;R 
850 GOTO 500 


2 Subrutina ayuda 


1000 PRINT «HAY SIETE HABITACIONES EN 

ESTE LABERINTO» 

1010 PRINT «CON UNA CAJA CON UN 

TESORO» 

1020 PRINT «EN CADA UNA. DEBES REUNIR 
TODOS» 

1030 PRINT «LOS TESOROS EN LA MISMA HABITACION» 
1040 PRINT 

1050 PRINT «ESTAS SON LAS INSTRUCCIONES QUE 
ENTIENDE LA COMPUTADORA» 

1060 PRINT «AYUDA :TE DICE COMO DEBES 
JUGAR» 


1070 PRINT «N,E,S,O  :TE MUEVE AL NORTE,SUR,ESTE U OESTE» 


1080 PRINT «COGER 
1090 PRINT «DEJAR 
1100 PRINT «POSICION 
ACTUAL DEL TESORO» 


¡DEJAS EL TESORO» 
¡MUESTRA LA POSICION 


A 1110 PRINT:PRINT 


1120 RETURN 


La computadora te dice cómo funciona el juego y 


las palabras que entiende. Cada vez que el jugador 
introduce la palabra HELP, la computadora acudirá 


a esta subrutina. 


6 Subrutina mover 


1200 IF A$=«N» THEN LET X=N(R) 
1210 IF AS=«E» THEN LET X=E(R) 
1220 1F AS=«S» THEN LET X=S(R) 
1230 IF AS=«0» THEN LET X=0IR) 


dA 1240 IF X=0 THEN PRINT «IMPOSIBLE IR POR AHl»:GOTO 1260 


1250 LET R=X 
1260 RETURN 


E los pasos 1200-1230, 
la dirección del jugador (N, E,Su O l 

A , y ul 
encuentra el número de habitación Ea 
dirección utilizando R como «número de 
compartimento» de la Correspondiente matriz y lo 


almacena en X. Si X es 0 (paso 1240), quiere decir 


que no hay ninguna habitación en esa dirección 


la computadora comprueba 


:TE PERMITE LLEVARTE EL TESORO» 


43 


44 


7 Subrutina coger 


A 1300 1F C=1 THEN PRINT «NO PUEDES LLEVAR 
MAS»:GOTO 1370 
1310 FOR K=1 TO 7 
1320 IF T(K)=R THEN LET Y=K 
1330 NEXT K 
1340 IE Y=0 THEN PRINT «ESTA HABITACION ESTA 
VACIA» 
1350 LET T(Y)=999 
1360 [PRINT «OK LLEVAS: »; TS(Y) 
A 1370 LET C=1: LET Y=0 
1380 IRETURN 


En el paso 1320, la computadora compara cada 
número almacenado en la matriz T con R. Si son 
iguales toma el número de compartimento de ese 
elemento de T y lo almacena en una variable Y. 
Después del bucle, la computadora usa Y para 
recoger el elemento correcto de T y cambia su valor 
a 999 (paso 1350). Si Y es 0 (paso 1340), significa 
que la habitación está vacía. 


8 Subrutina dejar 


A 1400 IF C=0 THEN PRINT «NO LLEVAS 
NADA»:GOTO 1450 
1410 FOR K=1 TO 7 
1420 IF T(K)=999 THEN PRINT TS(K); 
« DEJADO EN LA HABITACION »;R 
1430 1F T(K)=999 THEN LET T(K)=R 
1440 NEXT K 
1450 LET C=0 
1460 RETURN 


La computadora encuentra el elemento de T que 
vale 999 (paso 1420) para cambiar su valor a R 
(paso 1430). 


9 Subrutina Posición 


1500 PRINT «LLEVAS : »; 

A 1510 IF C=0 THEN PRINT TAB(10); 
«NADA»:GOTO 1550 
1520 FOR K=1 TO 7 
1530 IF T(K)=999 THEN PRINT 
TAB(10);TS(K) 
1540 NEXT K 
1550 PRINT «CONTENIDO DE LAS HABITACIONES: » 
1560 FOR K=1 TO 7 
1570 IF T(K)<>999 THEN PRINT 
TlK) za: »;TS(K) 
1580 NEXT K 
1590 RETURN 


1 Los data 


AA 2000 DATA 2,7,6,0 
2010 DATA 0,3,7,1 
2020 DATA 0,0,4,2 
2030 DATA 3,0,5,7, 
2040 DATA 7,4,0,6 
2050 DATA 1,5,0,0 
2060 DATA 2,4,5,1 


Estos son los datos para las matrices N, S, E, O. 


2100 DATA FRIA Y TENEBROSA,OSCURA 

Y SOMBRIA 

2110 DATA GRIS Y FANTASMAL, SUCIA 

Y BRUMOSA 

2120 DATA VACIA Y LUGUBRE,ENCANTADA 
Y HORRIBLE, ATERRADORA Y MISTERIOSA 


Estos son los datos para D$. 
2200 DATA ORO, 1,CHICLE,2 


2210 DATA BOCADILLOS,3,BASURA,4 
2220 JARROS DE MIEL,5, JOYAS,6,MONEDAS,7 


Estos son los datos para T$ y T. 


Cambios para Sinclair (Timex) 


No hacen falta cambios para el Spectrum (Timex 
2000) excepto en la manera de dimensionar las 
matrices, que ha de hacerse como en el ZX81 
(Timex 1000). Cada instrucción DIM debe 
separarse por dos puntos o ponerse en un paso 
diferente como en el ZX81 (Timex 1000). 


Paso 100: Coloca las instrucciones DIM en pasos 
separados y dimensiones D$ (7,20) y T$ (7,23). 


Paso 120: Coloca pasos INPUT por separado para 
cada matriz y escribe los datos cuando ejecutes el 


programa. 


120 INPUT NIK) 
123 INPUT E(K) 
125 INPUT SIK) 
127 INPUT OK) 


Paso 150: Usa INPUT y escribe los datos cuando 
ejecutes el programa. 


150 INPUT DS(K) 
180 INPUT T$(K) 


Paso 180: Usa INPUT para la matriz T$ y LET para 
la matriz T para que no tengas que introducir la 
posición inicial de los tesoros cada vez que 
ejecutes el programa. Utiliza un nuevo bucle en 
pasos 193-197 para la instrucción LET de la 
siguiente manera: 


193 FOR K=1 TO 7 
195 LET T(K)=K 
197 NEXT K 


Paso 350: Utiliza la instrucción RND de tu 
computadora. 


350 LET R=INT(RND*7+1) 


Paso 440: Utiliza pasos separados repitiendo la 
instrucción IF/THEN de la siguiente manera: 


440 1F T(K)=R THEN PRINT TAB(15);T$(K) 
450 IF T(K)=R THEN LET F=1 


Pasos 480 y 1110: Utiliza pasos separados. 


Pasos 1240-1510: Usa pasos separados y cuando 
haya una instrucción IF/THEN repítela en un nuevo 
paso. Ej.: 


1240 IF X=0 THEN PRINT «IMPOSIBLE IR POR AHI» 
1245 IF X=0 THEN GOTO 1260 


Paso 2000: Suprime los pasos 2000-3000 y añade 
estos pasos para no tener que introducir los datos 
cada vez que ejecutas el programa. Cuando quieras 
volver a jugar, simplemente escribe GOTO 2000. 
(Cuando aprietas RUN la computadora borra todas 
las variables y matrices.) 


2000 PRINT «¿QUIERES VOLVER A JUGAR?» 
2010 INPUT R$ 

2020 IF RS=«SI» THEN GOTO 193 

2030 IF R$=«NO» THEN STOP 

2040 GOTO 2000 


Instrucciones en BASIC 


Esta es una lista de las pa 
explicaciones de lo que Significa cada 


conversión de la página 47 o en tu m: 
computadora. 


ABS le dice a la computadora que ignore los 
SIgnos positivo o negativo que encuentre 


AS Carácter en su número de 
código ASCII Correspondiente. Por ejemplo, 
ASC(«A») te dará 65, ya que éste es el 
húmero de código ASCII de la letra A. Las 


computadoras Sinclair usan COD 
so ODE en lugar 


CHR$ convierte un número en un carácter 
según los números de código que 
representen los caracteres en la 
computadora. En computadoras que utilizan el 
código ASCII, CHR$(65) da la letra A. En el 
ZX81 (Timex 1000), CHR$(38) te dará A, ya 


que esta Computadora usa diferentes números 
de código. 


CLS borra la pantalla. 


*CODE se utiliza en computadoras Sinclair en 
lugar de ASC para convertir una letra en su 
número de código. El Spectrum (Timex 2000) 
usa los números de código ASCII, mientras 
que el ZX81 (Timex 1000) utiliza sus propios 
números. 


*DATA ver READ/DATA. 


*DIM indica cuánto espacio de memoria hay 
que reservar para una matriz. Se escribe la 
palabra DIM seguida del nombre de la matriz 
y del número de elementos que contiene. Por 
ejemplo, DIM A(5) significa que hay cinco 
datos en la matriz A. Con las matrices de 
cadena en las computadoras Sinclair (Timex) 
debes poner el número de caracteres de la 
cadena más larga en la instrucción DIM. 


FOR/TO ... NEXT hace que la computadora 
repita las instrucciones entre los pasos 
FOR/TO y NEXT un determinado número de 
veces. Esto se denomina un bucle. 


GOSUB dice a la computadora que deje el 
programa principal y vaya a una sección del 
programa llamada subrutina. GOSUB debe ir 
seguido por el número del primer paso de la 
subrutina. Al final de la subrutina una 
instrucción RETURN le dice a la computadora 
que vuelva al programa principal ; 
comenzando en la instrucción posterior al 
paso GOSUB. 


labras en BASIC usadas en este libro con breves 


GOTO hace que la computadora salte al paso 
que se indica en el número que sigue a la 
palabra GOTO. 


IF/THEN dice a la computadora que tome 
una decisión y haga algo según el resultado. 
Después de la palabra IF hay una condición 
que la computadora debe comprobar 
comparando datos. Si la condición es 
verdadera, la computadora seguirá con las 
instrucciones que sigan a la palabra THEN. Si 
la condición no es verdadera, las ignorará. 


*INKEY$ inspecciona el teclado para ver si 
hay alguna tecla apretada. No espera a que la 
aprietes como INPUT, ni necesita de la tecla 
RETURN (o ENTER o NEWLINE según la 
computadora). Debido a que las 
computadoras trabajan tan deprisa, INKEY$ 
suele usarse dentro de un bucle. En algunas 
computadoras tienes que introducir un 
número entre paréntesis detrás de INKEY$ 
para indicarle a la computadora cuánto debe 
esperar. 


INPUT le dice a la computadora que espere 
a que teclees información en una variable 
mientras se ejecuta el programa, INPUT debe 
ir seguido de un nombre de variable. 


INT es la abreviatura de Integer (número 
entero). Transforma un número real (un 
número con decimales) en un número entero 
ignorando todo lo que hay detrás del punto 
decimal. Por ejemplo, INT(6.732) te dará 6. 
Con los números negativos hace lo mismo, 
pero redondeando hacia el siguiente número 
entero; es decir, INT(-3. 2) te dará —4. 


*LEFTS le dice a la computadora que tome un 
número de caracteres desde el extremo 
izquierdo de la cadena. Por ejemplo, 
LEFT$(A4$, 4) le dice a la computadora que 
tome los primeros cuatro caracteres de A$. 
Las computadoras Sinclair (Timex) no utilizan 
esta instrucción. 


Una cadena es una secuencia 
de caracteres, es decir, letras, 
números y símbolos. 
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LEN da la longitud de una cadena, es decir, 
el número de caracteres (incluyendo espacios 
y puntuación) de la cadena. 


LET etiqueta los espacios de memoria y pasa 
alguna información en ellos. 


LIST le dice a la computadora que exponga 
el listado del programa en la pantalla. 


*MID$ le dice a la computadora que tome un 
determinado número de caracteres de una 
cadena. Por ejemplo: MID$(A$, 5, 2) toma dos 
caracteres de la variable A$ comenzando en 
la quinta letra. Las computadoras Sinclair 
(Timex) no utilizan esta instrucción. 


NEXT le dice a la computadora que vuelva al 
principio del bucle. Ver FOR/TO ... NEXT. 


NEW le dice a la computadora que borre el 
programa. 


PRINT le dice a la computadora que 
exponga algo en la pantalla. PRINT por sí 
solo deja una línea en blanco. 


*READ/DATA le dice a la computadora que 
lea los datos listados en los pasos que 
comienzan con la palabra DATA y los ponga 
en la variable o matriz que sigue a la 
instrucción READ. 

REM es la abreviatura de Remark 
(comentario) y se utiliza para recordar qué 
función tienen las diferentes partes del 
programa. 


RESTORE le dice a la computadora que 
vuelva al principio de los pasos DATA. 


RETURN se utiliza al final de una subrutina 
para decirle a la computadora que vuelva al 
programa principal comenzando en la 
instrucción posterior al paso GOSUB. 


*RIGHT$ ordena a la computadora que tome 
un número de caracteres de la parte derecha 
de una cadena. Por ejemplo, RIGHT$(A$, 4) le 
dice a la computadora que tome los últimos 
cuatro caracteres de A$. Las computadoras 
Sinclair (Timex) no utilizan esta instrucción. 


*RND le dice a la computadora que tome un 
número aleatorio. 


RUN le dice a la computadora que lleve a 
cabo las instrucciones de un programa. 


*SPC le dice a la computadora que deje un 
cierto número de espacios en la pantalla. No 
todas las computadoras tienen esta instrucción. 


STEP se utiliza con bucles FOR/TO ... NEXT 
para decir a la computadora cuan a menudo 
debe repetir el bucle. 


*T AB mueve el cursor un número de espacios 
a lo largo de la pantalla. Suele usarse con 
PRINT para escribir algo en el centro de la 
pantalla. En algunas computadoras puedes 
utilizar TAB para mover el cursor un número 
determinado de líneas hacia abajo de la 
pantalla. En casi todas las computadoras 
necesitas poner un punto y coma detrás de 
TAB. 

THEN se utiliza con IF para decirle a la 


computadora lo que debe hacer si ciertas 
condiciones se cumplen. Ver IF/THEN. 


Símbolos BASIC 


Multiplicar 
Dividir 
Hallar la raíz cuadrada 


Elevar a. No es igual en 
todas las computadoras, así 
que busca en tu manual para 
ver cuál usa la tuya. 


Mayor que 


Menor que 


Mayor o igual que 


Menor o igual que 


No igual a 


Tabla de conversión 


Instrucciones 
usadas en 
este libro 


CLS 


INT(RND(1)+N +1) 


Elije un número entero 
aleatorio entre 1 y N 


INKEYS$ 


Hace que la computadora 
espere a que aprietes una 


= tecla. 
DRAGON 
CO 


INT(RND(1)+N+1) KEYS 


Borra la pantalla. 


INT(RND(0)*N+1) 


INKEY$ 


X$=w» 
IF PEEK (-16384) 
>127 THEN GET X$ 


INT(RND(1)*N+1) 


TIMEX (1000) 


SPECTRUM 
TIMEX (2000) 


INT(RND* N+1) 


INKEY$ 


INT(RND* N+1) INKEY$ 


Conversiones adicionales para computadoras Sinclair (Timex) 


Las computadoras Sinclair (Timex) no LET X$=«ARDILLAS» 
LEFT: $ manejan las cadenas de la misma 
manera que las demás computadoras. PRINT X$(1 TO 4) 
Para convertir estas instrucciones 
RIGHT: $ debes contar la posición del primer y 
del último caracter que quieras PRINT X$(5 TO ) 
seleccionar. LLAS 
Pon estas posiciones entre paréntesis 
MIDS$ con la palabra TO detrás de la cadena PRINT X$(2 TO 4) 
o de su nombre de variable tal y como RDI 
se muestra en los ejemplos de la derecha. 


Usa CODE en lugar de ASC. El ZX81 PRINT CODE(«A») 
(Timex 1000) tiene sus propios números 

de código mientras el Spectrum (Timex 

2000) usa el código ASCII. 


Para dimensionar una matriz de cadena DIM A$(5,12) 
utiliza DIM seguido de dos números 

entre paréntesis. El primero será el 

número de caracteres de la cadena 

más larga. En el ejemplo de la derecha, 

la matriz A$ contiene cinco cadenas, la 

mayor de las cuales tiene 12 

caracteres. 


El Spectrum (Timex 2000) utiliza 

READ/DATA ADDATAEORO las demás 
computadoras; no así el ZX81 (Timex 10 FOR K=1 TO 5 
1000), que no tiene ningún equivalente 20 INPUT ASIK) 
parecido. La mejor manera de 30 NEXT K 
sustituirlo es mediante una serie de 
instrucciones INPUT como las que se 
muestran a la derecha. 
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